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2. SUMMARY ' 

The language MIDIAL and its implementation on a 8K PDP-8. 

MIDIAL is one of the machine oriented higher level languages. 
It contains a lot of features of ALGOL 68 and APL . 

Some programming possibilities are : 

- text editing and text preprocessing systems. 

- description language for machine programs, 
language for teaching machine oriented programming. 

- string and small integer algorithmetical problems. 
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4.1 FLOWCHART NOTATIONS. 

The flowchart technique for structured programming described by 

I.Nassi and B.Shneiderman (2) is used within this report. 

There are four basic symbols be used. Combinations of them may be 

\ 

made to form structures, all of which are rectangular in shape. 

1. Jhe ..process symbol : used to represent assignments, I/O operations 

_ and procedure calls. This symbol has the shape of a block. 

X:= 3 
Y:= F(X) 

The decision symbol : is used for the representation of conditional 
clauses. ( IF (b) THEN (a) ELSE (c) FI ) 



The iter ation symbol : is used for the representation of looping 

statements as WHILE - DO clauses. The body of the iteration 
is a structure of arbitrary complexity. 


While-clause 


do 

BODY 

od 


4* The case symbol : is the symbol that represents (a) statement(s) 
by which the control of the program part is spread out 
over a number of possibilities depending on one control 
value, e.g. CASE x IN q,r,s 'OUT t ESAC or 
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4.2 THE SYNTAX NOTATIONS. 


The syntaxes within this report are set up in the ALGOL 68 
notation way. (3) 

The strict language is defined by means of a syntax and semantics 
This syntax is a set of production rules for notions. 


o 


v...-- 

"a\"b","c","d 

r-y 

If c II H4.1t II.. H II.. 
0 ) t 5 U ) V 

G-- 



"A","B","C","D 

G 

' ,I S","T","U","V 


"i" (colon) , "," (comma) , (semicolon) and (point) . 

The representation of a terminal (J) symbol is the mark ft ; 

At many times in the syntax the notation ft is used directly instead 
of the much longer " ft symbol" . 

For example: the notion "a symbol" is directly replaced by the 
representation a . 

Within this report the underscored ft symbol, where ft represents 
one or more characters, must be read as a sequence of terminal symbols 
which are not underscored ; they represent a basic symbol of the 
language . 

In MIDIAL this sequence is preceded by a 1 symbol. 

This means that the basic symbol BEGIN in MINIAL the following 
terminal sequence has : ®©(g)®(n) and in MIDIAL this is : 

©®(D©©® • 

Terminal symbols of the form(^))mean for n = cr the representation 
of the carriage return character, for ft = If the terminal symbol 
of a line feed character, and for ft = tab the representation of a 
horizontal tabulation character. A symbol terminal of a capital letter 

and of its small letter is equal, e.g. (A)is equal to (a) . 
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Within MIDIAL programs the terminal symbol sequence of basic symbols 
(underscored) may not be followed by a digit terminal symbol or a 
letter terminal symbol, with two exceptions : 

a. Is the length of a basic symbol smaller than two characters, then 
the terminal symbol sequence of that basic symbol may be followed 
immediately by a number consisting of maximal four digits. 

So J5 7766 can be written as the basic symbol B7766 . 

b. Are the lengths of the basic symbols in a sequence of basic symbols 
each smaller than two^characters, they can be combined to a new 
basic symbol with as maximum the total length of six characters, 

' This means that the basic symbol sequence £ AX X W 1_ can be 
written as the basic symbol CAXXW1 with the terminal symbol 
sequence ©©(A)®®®© . 

Note : The basic symbol V may be used only within a basic symbol 
combination if it occurs to the left hand side of other basic 
symbols, e.g. XVXX2 is allowed, but CXV not. 

In MINIAL programs all basic symbols can be combined without 
restrictions. 

A notion is a nonempty sequence of small syntactical marks, for 
which there is a production rule. 

A production rule for a given notion consists of that notion followed 
by a colon, a list of notions and a point. 

A list of notions is a nonempty sequence of members seperated by 
commas. . 

A member is either a notion (productive) or is a terminal symbol 
or is empty . 
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Some production rules are given explicitly and others are obtained 
with the aid of a metalanguage whose syntax is a set of production 
rules for metanotions. 

A metanotion is a nonempty sequence of large syntactical marks. 

A production rule for a givfen metanotion consists of that 
metanotion followed by a colon, a list of metanotions , and a point. 

A list of metanotions is either a metanotion or a, possible empty, 
sequence of small syntactical marks. 

The production rules for metanotions can be obtained from the rules 
given in the syntax for metanotions in the following step(s) : 

If some rule contains one or more semicolons, then it is 
replaced by two new rules, the first of which consists out of 
the part of that rule up to and including the first semicolon 
with that semicolon replaced by a point, the second of v/hich 
consists of a copy of that part of the rule up to and 
including the colon, followed by the part of the original 
rule following its first semicolon , v/hereupon this step 
is taken again . 

The production rules for the strict syntax is any rule obtained in the 
following steps from the syntax rules defined in MINIAL or MIDIAL : 
step 1 : The rule given above for metanotions is applied also 
for the strict syntax rules, 
step 2 : One of the rules obtained is considered. 

step 3 : If the considered rule contains one or more metanotions, 
then for some terminal production of such a metanotion , 
a new rule is obtained by replacing that metanotion , 
throughout a copy of the considered rule , by that terminal 
production , whereupon this new rule is considered instead 
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and step 3 is taken ; otherwise, all blanks in the 
considered rule are removed and the rule so obtained is a 
production rule of the strict language . 

The reader might find it helpful to read a as "may be a" 
a as "followed by a" f and a as "or a" . 

The semantics of the strict language : 

A terminal production of a notion is considered as a linearly 
ordered sequence of symbols. This order is termed the "textual 
^ order", and following (preceding) stands for "textually immediately 
following" ("textually immediately preceding") in the syntax. 
Typographical display features, such as blank spaces , change to 
a new line , and change to a new page do not influence this order. 
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5.1 HISTORY OF THE LANGUAGE MINIALGOL (MINIAL) 

Version 1 of the language was developed a couple of years ago, 

and provided most of the facilities available in the current version. 

\ 

Version 2,,which was developed also in Liverpool at the Department 
of Computational and^Statistical Science, differs in some details 
of version 1. (1) 

This version needs 4 K core memory fully . The monitor page is 
overwritten, while loading the MINIAL system and compiler in core. 

It was not possible to interface with I/O facilities other than 
they keyboard/printer and the highspeed papertape reader/punch . 

To compile and to load and execute, the programmer had to be in 
the neighbourhood of the computer. There was no possibility to 
compile and run programs at a terminal in another room. 
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This part of this report treats the changes made to the Liverpool-2 
MINIAL version, which is base of our system. 

First of all the swapping of the loader and the monitor is treated, 
together with the simplifications made to the compiler and the 
system subroutine package. 


Secondly the interfacing with the OS/8 operating system is treated, 
in particular the input and output via device handlers. 











i 








- 11 - 


5• 2 LOADER SWAPPING and MODIFICATIONS OF THE SYSTEM SUBROUTINES. 


In the Liverpool-2 version the store lay-out is as following : 


7600 8 7777 


SYSTEM 

PROGRAM 

STACK 

=> FREE<" 

VECTOR' STACK 

~ 

LOADER 


8 


About 1100 locations contain the system-subroutines, which provide 


the arithmetic and data manipulative facilities. (1) 

Above these locations (a) program(s) , in particular the compiler, 
can be loaded with the system loader, which resides in the last page 
of the memory field. 

Before the first changes, this Minial implementation version had to 
be loaded with two papertapes every time. After the runrjing of 
Minial, a new usage of the computer could be made only after 
bootstrapping the systems monitor in core. 


The first change was extending the Minial system with a once only 
program and a start program part. 

With the once only program, the monitor page of the memory field,in 
which the Minialgol system had to be loaded, was saved in another 
memory field. Then the Minial system was loaded and the loader 
was swapped afterwards with the monitor page. 

The system could be. saved then, after returning to the monitor. 
Starting up on the start program part, the loader was swapped in its 
old locations (the monitor page), and the system was started at its 
old start address. 

The Liverpool-2 compiler compiled a program and halted afterwards, 
waiting on a new program to compile. From there it was possible 
to start up the system loader by toggling in the loader start address 
and restarting from there. 
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In the first Delft version this was changed into a compiler which 
returned to the start program, swapped back the loader and returned to t 
the monitor. Afterwards the system could be started from the monitor 
at a second start point, which entered the loader and the run time • 
system. We got now the following store lay-out: (not scaled) 
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When we got the source listings of the subroutine system and of 
the compiler from Liverpool, we built new sources while throwing 
away the overflow tests in the arithmetical routines. 

The 1 operator (addition without overflow testing) is replaced by 
the + operator. The double length operators (MULT, DIV and ADD) 
were shortened to their single.length equivalents (* , / and + ). 

The changes made to the compiler were : ; 

1. The input device was changed from channel 1 (keyboard) to 
the high-speed papertape reader (channel 3). 

2.. At compiling a program , a listing is made of the inputted program 
on channel 1. (printer of the teletype) 

The error printing routine could be shortened because of the fact 
that a line in error did not to be printed. 
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These modifications resulted in a saving of about 100 core locations. 

After joining the Input/Output package and the system driver, 
the following changes were made: 

1. The Halt routine or error routine was changed so that the system 
control returns from this routine to the monitor, after closing 
the output file and printing the text : "SYS ERR AT 

2. Within the compiler the papertape leader output (64 nil! characters) 
was removed. 

3. The following returns to the I/O package were inserted : 

' a. at the compiler end, the control is returned to the I/O pack/ 
system driver. 

b. within the loader, a subroutine call is inserted to the 

I/O pack/ system driver to change the control mode from 

* 

load to execute. 

c. At the program end, a jump is made to the system driver.. 

4. The channel 3/4 device v/as changed from the high-speed papertape 
punch to the buffered output device given in the command string 
or to its default device (SYS), and for input the channel 3/4 
device was changed from the high-speed papertape reader to 

a buffered input stream from the given input device in the 
command string or its default value. 














5.3 THE INTERFACING WITH THE OS/8 OPERATING SYSTEM. 


To get a more usable compiling and run time system for MINIAL, it 

was necessary that for the highpeed input and output operations all, 

to the computer coupled, I/O devices could be used. 

* 

This is do.ne by creating a program part which interferes with the 
OS/8 operating system for input and output. (6) 

In this program part, called here further I/O pack, the input-/output 
file controls are done and also the general compiler and load/execute 
control is done. 

The OS/8 operating system has a part , called the User Service 
Routines or shortly the USR (PS/8 Handbook,chapter 5) , by which it is 
possible to search a file on a given device, to open an output file, 

to chain to another saved program, etcetera . 

* ' 

The file command string (page 17) , typed in after the asterisk of 
the Command Decoder (PS/8 Handbook,chapter 3) which treats this 
intyped string, is used for defining all the input and output files, 
or devices , which the system must handle. 

Also option switches can be specified, these are used for changing the 
normal system control. 

The /N switch modifies the system so that.only the compilation phase 
is executed, and that the control returns to the Command Decoder or 
the systems Monitor, depending on the /M option switch. 

On the next page the flowchart of the MINIAL I/O- and control system 
is given. 

The I/O pack is located in the memory locations 4200 till 5577 0 of 

• - o~ 

the memory field 0. From 5600 till 6577g the input and output buffers 
are placed, and from 6600 till 7577g the input and output handlers 
(2 pages each) are located. 

By changing some assembly parameters, it is possible to relocate the - 
system parts through the whole field 0* 
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5.4 THE FILE COMMAND STRING FOR THE MINIALGOL SYSTEM. 


■The Miniaigol system asks the user to identify vhich files 
must be used by the compiler and the loader. 

The user must also identify whether the Miniaigol system must 
only compile,or must do the load- and go cycle only,or must do 
a compile- load- and go cycle. 

The command string must be typed in by the user after the * of 
tjie Command Decoder : 


*{{<dev>:}{BINFILE{.ex1}} {,{<dev>:}{OUTFILE{.ex2}> < } 

{{<dev>:}{PROGRAM{.ex3}}} {,{<dev>: }{INFILE{ .ex3)}}{/M}{/N} + 



{<dev>;} 


{BINFILE{.exl}} 


- means that this sequence can be omitted, 
and that this sequence will be replaced 
by the Miniaigol system by a default 
sequence in some cases. 

- is the codeword for specifying an input 
or output device. 

- if it is not specified,the DSK device 

is the default value for the device code.^ 

- BINFILE.EX is the file in which the 
compilation result is set. ( ’.binary code') 
This result file is also the file that 
becomes loaded by the loader. 

- If the BINFILE is not specified by the 
user,the default name of the file is : 
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MINIAL.MB . 

Gexl} - If the extension (exl) is not specified, 

it will have the default value of .MB 


{OUTFILE{.ex2)} 


{.ex2) 


{PROGRAM{.ex3}} 


load-and go 


{INFILE{.ex3>} 


- OUTFILE.EX is the file name of the file on 
which the output at run time is written by 
by the P3 and PU instructions of Minialgol. 

- If the file name is not specified,then the 
file MINIAL.MO is geneated by default, 

if there has been output on P3 or P4. 

- If the extension (ex2) is not specified,it 
gets the default value of .MO . 

- PROGRAM.EX is the name of the file that 
must be compiled. 2 -* 

- If the file name and the device are not 
specified,then the file on the BINFILE 
place (or its default value MINIAL.MB ) 
must be loaded and run. 

- INFILE.EX is the file name of the file 
where the data , at the R3 or instructio 
is read from. 2 -* 

- If the device code and the file name are 
not specified,the system returns after an 
R3 or RU instruction to the Monitor ,with 
the error printout *1/0 ERR AT nnnn'. 














{.ex3} 
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{/m} 


{/N} 


only compilation 


- The default value for the extension of 
the input files is .MI (Minialgol Input); 

If the user does not specify an extension 
for an input file,the default value .MI 
is added to the file name. If the file is 
not found, a search for a file without an 
extension to the file name is made. 

- is specified in case that the control of 
the system must return, after completion, 
to the Monitor. 

In the case that the file MINIAL.SV is not 
on the SYS(-tern) device, this option switch 
MUST be specified. (else you get a 
monitor error) 

- If this switch is not specified,the general 
control returns to a fresh Minialgol system. 
This is done by chaining to the MINIAL.SV 
file on the system device. 

The system returns with the * of the 
Command Decoder. 

- This is the No load switch,to do only (a) 
compilation^). 

This option can be used independently of 
the /M option. 


1J If the input device of the INFILE.EX is not specified, the input 
device of the PROGRAM.EX file is taken as default input device 


of the INFILE- file. 
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In case of only the load- and go cycle, then the device code of the 
INFILE- file must be specified. 

ol 

In case that an input device is a non-directory device , e.g. the 

high-speed papertape reader and the teletype, the file name can be 

\ 

omitted. 

# 

3 -* Instead of the < sign, the ■*- sign can also be used. 
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. . • 

5.5 METANOTIONS FOR THE MINIALGOL SYNTAX. 

ALPHA :: a;b;c;d;e;f;g;h;i;j;k;l;m;n;o;p;q;r;s;t;u;v;w;x;y;z 

V..- NOTION :: ALPHA ; NOTION ALPHA . 

\ 

C ■ ‘ 

r 

META PRODUCTION RULES. 


r 

EMPTY 



0 

NOTION option 


NOTION ; EMPTY . 

J 

NOTION 1 NOTION ^NOTION sequence . 

NOTION sequence 


0 

NOTION list 


NOTION ; NOTION ,0, NOTION list . 


NOID 


nonvoid ; void . 

r v 

..._y 

ft symbol 



0 

comma NOTION 


comma , NOTION . 


NOTION comma 


NOTION , comma . 


O 

o 

o 

o 

o 

Q 

P 

0 

In 













% 


Ws 


* 


i 


■■I 














PRODUCTION RULES . 

0 


{ , 

letter 

• ALPHA symbol . 


octal digit 


.-.o 

digit 

: octal digit ;®;@. 

G 

comma 

: ©•’ 


quote 


G 

quote image 

: quote , quote . 

o 

hek 

: ® • ’ 


escape 

: ® . 

c 

space, 

: O. 

o 

skip 

: @ symbol ; © symbol ; @) symbol . 

✓-“v 

character 

: letter ; digit ; comma ®;Q) ;0;0 

C \ 



b 


©;©;©;©. 

* 

mark 

character ; quote ; hek ; escape . 

(j 

string token 

character ; hek ; quote image ; escape ; space 

0 

comment token 

character ; quote ; escape ; space ; skip . 


general character 

mark ; skip ; space . 

o 

octal integer 

octal digit sequence . 

0 • 

number 

digit sequence . 


label identifier 

J- , number ; £ , number . 

0 

octal value 

£ , number . - 

G 

boolean value 

TRUE ; FALSE : 


character value 

escape , mark ; SP ; LN . 

9 

string 

quote , string token sequence option , quote . 

0 

comment 

hek , comment token sequence option , hek . 


open token 

©; IF ; CASE ; BEGIN . 

o 

close token 

®; FI ; ESAC ; END ; OD . 


O 

G 
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exit 

label 

constant 

vector 
table item 

nonvoiding 


: HALT . 

: label identifier ,©. 

: boolean value ; character value ; octal value ; 

number ; label identifier . 

•' ©» nonvoid quaternary list option ; string . 

: label sequence option , constant ; 

label sequence option , string . 
assignment operator : ©;©;©;©; © ; © ; 

; operator and becomes . 


operator and becomes : 
nonvoiding monadic operator 

monop : 


dyac , 0 ; dyac , © . 
monop ,©option '» ST ,© ; 

© , label identifier , O • 
©;©; AP ; AR ; AW j AY ; AZ ; C 


H ; :N ; NOT ; P ; R ; _V ; W ; X : Y 
Z ;©; ALPHA ; DIGIT ; CHAR ; DECS 
DECIN ; OCTIN ; OCTS ; COPY ; CALLP? 

nonvoiding dyadic operator : dyac ,@option ;©; COMP ; 


dyac : 

nonvoiding proceduring operator : 
voiding monadic operator : 
nonvoid primary 
nonvoid secondary : 


EXPAND ,©;©),label identifier*^ 

©;©;©;©;©;©; sl ; hd ; 

MEM ; 

SUBR ; EXPR ; PROG . 

GOTO ; DCL . 


constant ; vector ; closed nonvoid clause ; SREG . 
nonvoid primary ; 


nonvoiding monadic operator , nonvoid secondary ; 
nonvoiding proceduring operator , NOID secondary . 
nonvoid tertiary : nonvoid secondary ; 

nonvoid tertiary , nonvoiding dyadic operator , 

nonvoid secondary . 
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nonvoid quaternary 


if chooser 

case prelude 
out 

nonvoid conditional 


void primary 

void secondary 

void tertiary 
void quaternary 


: nonvoid tertiary ; closed nonvoid quaternary 

. train ; 

nonvoid tertiary , nonvoiding assignment 
Operator , nonvoid quaternary . 

: nonvoid quaternary train , THEN , nonvoid 

quaternary train . 

: open token , nonvoid quaternary train , . 

: ' OUT , nonvoid quaternary train . 

: open token , if chooser , ELSE , nonvoid 

quaternary train , close token ; 
case prelude , nonvoid quaternary train list , 
out » close token . 

: exit ; while ; closed void clause ; RESET ; 

SKIP . 

: void primary ; 

voiding monadic operator , nonvoid secondary . 

: void secondary . 

: void tertiary ; 

TABLE ,open token , table item list ,close toke 
CODE , open token , octal integer list , close 

token 


NOID quaternary train 


label sequence option , NOID quaternary ; 
statement , NOID quaternary train . 


balanced to void NOTION : NOID NOTION . 

while : WHILE , nonvoid quaternary train , DO 

balanced to void quaternary . 
closed NOID quaternary train : 


open token , NOID quaternary train , close toke 
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0 

NOID quaternary trist 


nonvoid quaternary trist comma option , 

t 



NOID quaternary train , comma balanced to void 




quaternary trist option . 


void conditional 


open token , if chooservoid , else option , 

% \ 



close token ; 

(' ‘ 

m 



case prelude , balanced to void quaternary trist 




close token ; 

\ 



case prelude , void quaternary trist , OUT , 

G 



,nonvoid quaternary trist » close token . 


if chooservoid 

: 

nonvoid quaternary train , THEN , balanced to 

L 

» 


void quaternary train . 

( "■} '. 

else 


ELSE , void quaternary train . 


unit 


NOID quaternary . 


closed NOID clause 


NOID conditional ; 

4 

Q 



closed NOID quaternary train . 


sequencer 


(T), label sequence option . 

o 

statement 


unit , sequencer . 

O. ’ 

program 


label sequence option , unit ,G* 


O 

o 

o 

o 

o 

G 

G 

\ ) 

wmm 
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5.6 THE COMPILER OUTPUT CODE OR BINARY CODE. 


The binary code consists out of 8 bit words or'frames' ,this because 
of the fact that the first Minial version a system was with papertape 
as output. 

\ 

This code is .handy to handle it as ASCII- data on the input and output 
devices by means of the device handlers. 


The first dataword of the code string is 125g. 

Here below an explanation of the code is given for all the combinations 
which the loader can handle. This does not mean that the compiler can 
generate all these codes, for example: the recursive loader call can not 
be generated by the compiler. 


4 5 6 7 8 b 9 10 11 

~r~"rT"rn~i—n 


nr fxix|xixix i x ri 


this is the bit number of the 
accu or frame on papertape. 
s = sprocket hole of papertape. 

- means that bit 4 to 10 specify 
the number of the system routine 
in the subroutine table. 

In the loaded program this 
becomes : (after adding B4400 ) 
100 1Ox xxx xxx£ or as in PAL-8 : 
JMS Z (x xxx xxx . 






















- bit number 
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' , 

4 5 6 7 8 9 10- 11 
L | L 1 L 1 L | L 1 L | 0 | p" 


[ h 1 h | h 1 hTTI h ITTol 



is the first word of a combination 
of two frames . It is followed by: 


and these two words are combined to 
a full twelve bit word as following: 
HHH HHH LLL LLL 2 . 

This is used for the output of 
constants, data after the CODE 
operator and for operation codes 
as re SET > SKIP , LN and SP. 


program directive. 

end of program, signals the 
loader end also, 
recursive loader call . 

absolute data follows in the 
next two frames as twelve bit data, 
relative data follows in the next 
two frames as twelve bit data. 

These last two directive words and 
their following data words are 
followed by another two frames data 
word. This denotes the relative address 
from the load buffer begin where the 
data must be filled in. If it is 
absolute, the data is filled in without 
else with the addition of the buffer 
start, address. 


0 1 0 1 0 | 0 | . 1 . 1 1 1 * 0 ] 


0 0 


Em 

mm 

03 
































9 





If the value of the accessed location 
was not zero at that time, the data word 
is filled in at this location,and the 
value which was in that accessed location 
» is used as a backreference, with as base 
the load buffer begin to locations where 
\ that data word must be filled in. 

This is especially used in loading of 
, a program with labels that are used before 
their actual declarational usage. 

On the next page an compiled example is used to demonstrate 
the compiler output code, and the directive frames. 
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( XI := 0 ; WHILE (Xl+:=1)<10 DO 
P1*=DECS( XI ) t (3|sP).DECS( XI * XI ). l \ 11 ); 


~cj- 


-S3=»0 


1 

-ea--2 

3 

4 

5 

6 

7 

10 

11 

12 

13 

14 
‘ 15 

16 

17 

20 

21 . 

22 

23 

24 

25 

26 
27 

30 

31 

32 

33 
•34 

35 

36 

37 

40 

41 


15125 
JMS Z 


JM3 Z 

JUS z 
JMS z 
JMS Z 


JMS Z 

JMS Z 
JMS Z 
JMS Z 

JMS Z 
JMS Z 


JMS 

JMS 


I— tgg* 


42 

43 

44 

45 

46 

47 

50 

51 

52 

53 

54 

55 

56 

57 

60 

61 

62 

63 

64 


JMS 

JMS 


JH 

JMS 


65 


—fjS- 


/r 


0137 

0001 
1026 
0137 
OOOO 
0075 
0140 
0137 
0001 
1026 
0137 
0001 
0101 
0107 
0137 
0012 
0116 
0152 
0000 
JMS Z 0137 
0001 
4445 
JMS Z 0137 
0001 
JMS Z 0053 
JMS z 0065 
JMS Z 0137 
0003 
Z 0143 
0000 
z 0137 
0240 
5535 

rel.data : 
JMS Z 0103 
JMS Z 0125 
JMS Z 0137 
0001 
0053 
0137 
0001 
JMS Z 0053 
JMS Z 0120 
JMS Z 0065 
JMS Z 0125. 
JMS Z 0150 
0000 
0215 
ahs.data » 
JMS Z 0125 
JMS Z 0077 
Z 0140 

Z 0141 
0000 
rel.data s 
rel.data : 

5533 

endprog 

checksum 


start 
push 

1 

AX 

push 

0 

assign 

pop 

push 

1 

AX 

push 

1 

as sign?;!) e come s 

add 

push 

B0012 

lessthen 

(wk/c c*J) 

push 

1 

AP 

push 

1 

X 

DECS 

push 

3 

proc. oper. 

STQTt T^- tte 


push 
SP 

endexpr 

42 — 36 or: C(ctart+36o):=start- 
creat e 
concatenate 
push 

1 
X 

push 

1 

X 

multiply 
DECS 

concatenate 

f£ ns < W/./. 

LN 


vecifft 


— 56 or: C(start-f56o): = 1 
concatenate 
vector assign 
pop 

goto nonvoid 

■$T0ftT-/-io ( return v/hile \ 

65 — 23 C(start+23):=start+65 
10 — 64 C(start + 64 ) : =start+10 — 
end of program 







































































5.7 THE HINIAL.SV CREATION FROM BINARIES. 


Creating a new Minial system, the programmer needs the PAL8 
binaries of the Minial system subroutines (MINISY.BN) and of 
the Minial compiler (MINICM.BN) . 

To create the Minial save system the programmer must type in: 

+C 

.RU dev • ABSLDR + 

*dev : MINISY.BN + 

*dev : MINICM.BN $ 

•SAVE dev MINIAL 0-177,4200-5577,10000-16777 ; 4200=0 + 


+ stands for the carriage return character, 

$ for the altmode character. 

For dev the input or output device code must be filled in. 
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6.1 MIDIALGOL (MIDIAL) - INTRODUCTION. 
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Proceeding from the Delft MINIAL version, the language MINIAL 
is extended to the language MIDIAL (GOL) . 

This was done because of the facts that: 

1. MINIAL had no identifiers, only X, Y and'W- stores. 

In MIDIAL it is .possible to give symbolic names to the parameters 
of subroutines and to variables. 

2. The usage of quaternary trains was not used consequently within 
the DO-clause as in the THEN-clause. 

The MINIAL construction WHILE .. DO ; is written in 

MIDIAL as WHILE .. DO OD ; . 

3. A fuction call in MIDIAL is written as a fuction in the ALGOL way: 
F(X,Y) is equivalent to the MINIAL function call $[G f ,X x ,X y ] . 

4. The MINIAL system was not interruptable, the MIDIAL system is 
made interruptable so that the control over "repeat forever" 
and other programs returns to the monitor after typing the tC 
(control C) character on the keyboard of the system teletype. 

Still some other changes are made as for example: VEC( ... ) which 
is an equivalent of the vector [ ... ] in MINIAL . 

To compile MIDIAL programs a preprocessor, written initially in 
MINIAL, is used together with a minimal subroutine package (system), 
which is based upon the old MINIAL system subroutine package. 

Together they form the preprocessor system. (MIDIAL.SV) 

After the testing period of this system, a minimum preprocessor 
was created to preprocess a preprocessor written in MIDIAL itselfs. 







* 
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This minimum preprocessor is called the bootstrap preprocessor. 

After processing a program, the preprocessor system chains to a ' 
compiler and run-time system, which is based upon the old Minial system. 

(MIDICM.SV) 

The. file tommand string is extended with an output file place for 
the preprocessor output, the intermediate program. 

Two option switches are added also : 

1. the /P -option switch, which specifies that only the preprocessing 
must be done. The system returns thereafter,by chaining to a new 
preprocessor system, with the asterisk of the Command Decoder. 

2. the /L -option switch, which specifies that the intermidi ate program 
must be listed while compiling it with the Minial compiler. 

If it is not used, only errorcodes without their corresponding 
line in error are visible on the teletype printer after error(s). 



means chaining 
to the program 

™ fUff 
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6.2 HETANOTIONS FOR THE MIDIAL SYNTAX. 


c 

ALPHA :: 

a;b;c;d;e;f ;g;h;i ;j;k;l ;m;n;o;p;q;r 

'r 

G 

* 

NOTION :: 

ALPHA ; NOTION ALPHA . 

G 

C 

META PRODUCTION RULES. 

c 

r'\ 

EMPTY' : 


u 

NOTION option : 

NOTION ; EMPTY . 

c 

NOTION sequence : 

NOTION ; NOTION , NOTION sequence . 


NOTION list : 

NOTION NOTION , Q , NOTION list 

o 

NOID : 

nonvoid ; void . 

o 

0 symbol : 

©. 


comma NOTION : 

comma , NOTION . 

U 

NOTION comma : 

NOTION , comma . 


o 

o 

o 

o 

* 

0 

o 

o 

o 

1 
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1 


PRODUCTION RULES. 


Q 
C 
C : 


Q 


letter 
octal digit 
digit 
comma 
quote 

quote image 
hek 

escape 
space 
skip - 
character 


ALPHA symbol. 

@ ;©;©;©;©. 

octal digit ;®;®. 

O-, 

o. 

quote , quote . 

©• 


O- 

© symbol ; © symbol ; @ symbol . 

letter ; digit ;®;©;©;©;©;©;@;©;® 

© O O 5©i© <D <D®;®;®; ©;® ;®; 
©;©• 


0 

mark : 

character ; quote ; hek ; escape . 

n 

string token : 

character ; hek ; quote image ; escape ; space . 


comment token : 

character ; quote ; escape ; space ; skip . 

o .. 

general character: 

mark ; skip ; space . 


octal integer : 

octal digit sequence . 


number : 

digit sequence . 

0 

Id .' : 

letter ; digit . 

o 

identifier : 

letter ; letter , Id sequence option . 

v 

label identifier : 

identifier ; £ , number ; L^ , number . 

O 

octal value : 

B_'» octal integer . 

o 

boolean value : 

TRUE ; FALSE . 


character value : 

escape , mark ; SP ; LN . 

•o 

string ' : 

quote , string token sequence option , quote . 

o 

comment : 

hek , comment token sequence option , hek 


open token : 

CO; IF ; CASE ; BEGIN . 

0"- 

close token : 

®; FT ; ESAC ; OD ; END . 

n 

exit : 

HALT . 
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nonvoiding assignment operator : 

0 : ©;© ; © ; 0; 

(T5; operator and 


becomes . 

operator and becomes : 

dyac , (0 ; dyac , (T=). 

\ 

nonvoiding monadic operator : 

monop option ; A ; ST 

\ 

0,label identifier,(T?) . 

monop : 

0)50^ ; AR ; AW ; AY ; AZ ; C ; 

■ - 

M ; N ; NOT ; P ; R ; V ; W ; X ; Y ; 

Z ;(T); ALPHA ; DIGIT ; CHAR ; DECIN ; 


DECS ; OCTIN ; OCTS ; COPY ; CALLPR ; 


AX . 

nonvoiding dyadic operator : 

dyac r@)option ;ff ; COMP f@\ 

EXPAND ,(@ > ) ;(TT),label identifier,(T? 

dyac : 

©OG0O©e@G 

© 00 ; © i: 0 ; SL ; HD ; MEM . 

nonvoiding proceduring operator : 

SUBR ; EXPR ; PROG . 


voiding monadic operator : 


GOTO ; DCL . 



















/ 







label : 

constant 

vector : 

call : 

table item : 

nonvoid primary : 

nonvoid secondary: 

nonvoid tertiary : 

nonvoid quaternary: 

if chooser : 

case prelude : 

out : 

nonvoid conditional: 


elif : 

void primary : 
void secondary : 


-36- 

label identifier , |!J . 

boolean value ; character value ; octal value ; 
number ; label identifier . 

VEC , [(j , nonvoid quaternary list option , |)j ; 

|[] , nonvoid quaternary list option ,[]■ ; 

string . ' 

label identifier , J(j , nonvoid quaternary list option , 

labei sequence option , constant ; 

label sequence option , string 

constant* ; vector ; closed nonvoid clause ; 

identifier ; SREG . 

nonvoid primary ; call ; 

nonvoiding monadic operator .nonvoid secondary ; 
nonvoiding proceduring operator , NOID secondary . 
nonvoid secondary ; 

nonvoid tertiary , nonvoiding dyadic operator , 

nonvoid secondary . 

nonvoid tertiary ; closed nonvoid quaternary train ; 
nonvoid tertiary , nonvoiding assignment operator , 
nonvoid quaternary . 

nonvoid quaternary train , THEN f nonvoid quaternary trai 
open token , nonvoid quaternary train , IJi . 

OUT , nonvoid quaternary train . 

open token > if chooser, elif sequence option , 

ELSE ,nonvoid quaternary train , close token J 

case prelude , nonvoid quaternary train list , 
out , close token . 

ELIF , if chooser . 


exit ; while ; closed void clause ; RESET ; SKIP . 
void primary ; voiding monadic operator , nonvoid 


secondary . 
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void tertiary : 

void secondary . 

void quaternary : 

void tertiary ; 

TABLE , open token , tabled tern! ist , close token ; • 


CODE , open token , octal integer list , close token . 
NOID quaternary train: label sequence option , NOID quaternary ; 

statement , NOID quaternary train . 
balanced to void NOTION : NOID NOTION . 

while : WHILE , nonvoid quaternary train , DO , 

balanced to void quaternary train , close token . 
closed NOID quaternary train: 

open token , NOID quaternary train , close token . 

NOID quaternary trist: 


void conditional 

nonvoid quaternary trist comma option , NOID quaternary 

train , comma balanced to void quaternary trist option. 

: open token , if chooservoid , elifvoid sequence option 

else option .close token ; 

case prelude , balanced to void quaternary trist , 

close token ; 

case prelude , void quaternary trist , OUT , nonvoid 

quaternary trist , close token . 

if chooservoid 

: nonvoid quaternary train.THEN , balanced to void 

quaternary train . 

elifvoid 

ELIF , if chooservoid . ! 

else 

ELSE , void quaternary train . 

array 

identifier , Q , number , Q . 

unit ; 

. NOID quaternary ; ARRAY , array list ; 

VECTOR , identifier list ; 

FORMAL , identifier list ; LOCAL , identifier list ; 


GLOBAL , identifier list ; LABEL , identifier list . 
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closed NOID clause 
sequencer 
statement 
program 


NOID conditional ; closed NOID quaternary train 

[Tj , label sequence option . 

unit , sequencer . 

label sequence option , unit . 













c,. 


* 
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6.3 THE SEMANTICS OF HI DIAL. 

The framework of the MIDIAL language consists out of vectors. 

Vectors are built up out of elements. The first element is the 
vector length, the other elements contain data. 

The vector length gives the number of following data elements. 
Vectors are located in consecutive memory locations. A reference to 
the vector is made by means of a pointer, which holds the address 
of the memory location Which contains the vector length. 

In the following figure a vector is drawn, which has a text as data. 


16 

M 

I 

n 

i 

A 

L 

G 

0 

L 


V 

E 

C 

T 

0 

R 


t.first data element 
vector pointer 


The compiler and loaded programs are in the operating environment 
examples of vectors. 

For a better notion of the MIDIAL semantics the store lay-out is 
treated : 


STP VAP VAPB 



entry system program X-store stack free vector loader/ 

table subroutines store stack W-store 


•the entry table is a table of the entry points of the system 
routines. 

These subroutines are available for the user by a coded indirect 
subroutine jump to this table. (JMS Z) This table is located in 
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page zero of the PDP-8 computer. 

A program is loaded in the program store by means of the system 
loader. 

After the program a X-store is located. In this store values, 
created during the program elaboration, may be stored here. 

The stack is used by the system for holding intermediate results, 
return addresses, etcetera. The top of the stack is given by the 
stack top pointer ( STP ) . 

The vector stack stores vectors which are created during the 
evaluation of expressions. 

The top of the vector stack is given by the vector stack pointer 
( VAP ) . The bottom of the vector stack is given by VAPB . 

At the call of a subroutine or a program ( $ or CALLPR ) , on 
the stack top transfered parameters are placed, together with 
some information about the 'environment* (VAPB,MO) , the VAPB 
pointer is set on the location pointed by VAP. 

So every call evaluation is embedded within the free room of the 
outer environment. This principle is treated in detail by the 
procedure calls . 

The loader loads a program in the program store area, or in the 
X-store if the loader is called out of a program. 


The memory locations which contains the loader, can be used as 
common variable room (or W-store) while destroying the loader. 
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variable and parameter stores. 

The programmer may store a value, created during the elaboration 
of his program, into a memory location. 

In principle all memory locations can be used for storing or 
modifying data, but there $re three sorts of memory areas (stores) 
given by the system which are specifically for data storage or data 
transfer. These three areas are the W-store, or common variable room, 
the X-store, or global variable room, and the Y-store, or parameter 
and local variable room.. 

- the W-store , or common variable room : 

This room can only be used if the loader is not needed by the 
programmer after the first access to the W-store. 

The W-store overlays the system loader core locations, so the 
programmer must pay attention to this point. 

The variables or constants stored in this W-store are accessible 
from every program, (see the PROG operator) 

The store locations are numbered from 0 to 177 g , they can be 
accessed by means of two operators, the AW operator and the W 
operator. 

The AW operator working on the elaborated argument n (number value) 
gives the machine address of the n-th W-store location. 

The W operator is the composition of the C operator (the contents of) 
and the AW operator : the operator applied to a number value m, 
refers to the contents of the m-th W-store location. 

- -the X-store ,- or global variable room : 

All the variables stored in this area are accessible only from the 
program where the X-store belongs to. 

Every called program has its own X-store, initially of 64 (100 g ) 
X-store locations. 
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For the main program, or executive, there are declared 100 X-stores 
by default, of which the X-store locations 0 to 20 are reserved for 
AX and X operations without restrictions. 

If the programmer uses an identifier as variable, the identifier 

\ 

name refers to a store location in the X-store above the twentieth 
X-store location. 

If the programmer needs more then the number of declared locations 
in the X-store, the programmer must declare them with the declare 
operator. The X-store can be shortened also by means of this 
^ declare operator if there are needed less X-store locations than the 
100 default locations, (see DCL ) 

There are three operators defined for the access to the X-store- 
locations: the AX operator applied to the number value m, gives 
the address of the m-th memory location. The £ operator applied to 
an identifier gives the address of the X-store location where the 
identifier name refers to. 

The C (contents of) operator applied to the A or AX operator gives 
the contents of the selected memory location. 

For programmer convenience, the C operator followed by the AX 
operator may be replaced by the £ operator. The £ operator applied 
to an identifier preceded by the A operator, can be replaced by the 
. identifier name only. 

For assignation of a vector in the X-store,by means of an identifier 
where this vector is assigned to, the VECTOR or the ARRAY operator 
must be used, (see page 61 ) 

‘This must be done for avoiding disturbances of the X-store locations 
which are referenced by means of identifiers and which are declared 
implicitly after the vector assignment. 
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DCL 


- The Y-store, or parameter and local variable room : 

This room can be accessed in two ways: 

a. By declaration of identifiers in this Y-store by means of the 
FORMAL operator for formal parameters, and the LOCAL operator 
for the local variables. 

The identifiers following the FORMAL operator in the identifier 
list refer to the Y-store locations where, at the call of the 
subroutine, the actual values are filled in. 

b. access as numbered store locations for local usage or for 

, parameter storing by means of the AY and the £ AY (YJ operators. 
If the user uses these Y-store locations for actual parameter 
transfer only, no declaration is needed for these locations. 

They are declared implicitly at the call of the subroutine. 

The parameters are transfered as a vector, with in the location 
£ 0 the vector length.(The AY operator and the £ operator have 
the same meaning for the Y-store as the AX and the operators 
for the X-store.) 

This vector length gives the number of transfered parameters, 
so subroutines can be written for variable numbers of actual 
parameters. 

If the programmer v/ants to use Y-store locations for local 
usage, they must be declared with the DCL operator. 

This operator changes the number in the location AY 0 into the 
number which is the evaluation of the rigth-hand operand of this 
DCL operator. 

• In the main program the AY 0 pointer and the AX 0 pointer refer 
to the same address, so the DCL operator can also be used to 
declare X-store locations, (this means: change the Y-store 
vector length ! ) 
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If the programmer uses a variable number of parameters and 
some local variables (say 4), the local variables must be 
declared as follows : 

SUBR( DCL(Y 0 + 4 ); .. and Y( Y 0 + 1 ) till Y( Y 0 + 4 j 
are the four local variables. 

For further information about the parameter transfer, see the 
subroutine call and parameter handling on page 69 . 

identifiers. 

An identifier has no maximum length, but the first six identifier 
symbols.only are significant for the recognition of the identifier 
by the preprocessor. Thus the first six identifier symbols of an 
identifier must be unique within the environment of the program 
part where this identifier is used. 

Of course local identifiers, declared with the FORMAL , LOCAL or 
LABEL declarational operators may have the same identifier name as 
a global defined identifier. 

Depending on the context.identifiers, which are not defined already 
local, are defined automatically global, either as X-store variable, 
or as G(-lobal) label. Sometimes identifiers are defined implicitly, 
depending bn the context, even if they were declared already in 
another mode. The programmer must'pay attention to this. 

The rules for this implicit definition are : 

1. After a operator or a GOTO operator or before a colon (:), 
a label identifier is expected. Thus even if the identifier 
is defined already as a X-store variable, there is made a 
global label with the same name. 

To avoid this situation, the identifier name must be embedded 
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between parenthesis as a closed nonvoid quaternary. 

Then the whole identifier name list is searched through. 

So the MINIAL program : 

G1: XI:=G1;-; IF (X2-:=1) /= 0 THEN GOTO XI FI;_ 

can be written in MTDIAL as : 

LAB: X:=LAB;-;IF (CNT-:=1) /= 0 THEN GOTO (X) FI;... . 

2. In front of an assignation operator (:-*• or :=) an X- or Y- store 
identifier is expected . 

3. The identifier name of a call must always be a label, and must 
always be an identifier. So if the identifier was not defined 
at the moment of the call as a label, a global (G) label is 
generated. 

If an identifier is found,in the preprocessor phase,which is not 
context dependent, a search is made in the identifier list. 

The sequence of searching an identifier is : c 

1. search through all local labels (L). 

2. search through all local variables (Y). 

3. search through all global labels (G). 

4. search through all global variables (X). 

if the identifier is not found, it is set 
into the identifier list as a X-store variable. 

If an identifier is context dependent, a search is made or 
through all Y and X-store names, or through all L and G-store 
names, in that order. If the identifier is not found in the list, 
it is set in the identifier list as a global name, or X or G. 





* 
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There are two sorts of label: local labels and global labels. 

Local labels are defined only with SUBR, EXPR and PROG texts. 
\ 

The compiler deletes all local label definitions from its 
label list on reaching the end of the procedure text in 
which the label is defined. 

Local label can be defined in two ways: 

1. by means of a declaration after the proceduring operator 
(after PROG,SUBR,EXPR). This declaration is done with the 
declarational operator LABEL followed by a list of 
identifiers. The preprocessor generates of these 
identifiers L-labels. 

L-labels are labels consisting out of the basic symbol L_, 
followed by a number. The preprocessor generates numbers 
above twenty. 

C *' 

2. by means of L-labels directly, but only for the numbers 
one to twenty. 

If the first option is not used, it is allowed to use 
numbers above twenty. 

Note: in another proceduring environment on the same level 
these labels can be used again because of 
their locality. 

Global labels are defined everywhere in'a program. They 
are local within every PROG proceduring environment. 

Global label identifiers can be given in two ways: 

1. as identifiers, they are converted to G-labels by the 
preprocessor. G-labels consists of the basic symbol G , 
followed by a number. 
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If it is not clear to the preprocessor that a global label 
is used, then the global label identifier must be declared 
with the GLOBAL operator in its following label. 

For example the MINIAL program part X1:G1;G1: _must be 

written in MIDIAL as: ^GLOBAL G ; X:= G ; G : . 

Notice that if the label identifier occurs in the program 
for the first time in a context in which it is defined 
implicitly, the GLOBAL operator is not needed. 

2. as G-labels: by means of the basic symbol £, followed by 
a number. If the first option, an identifier as global 
label, is used, only a number between one and twenty one 
can be used. Otherwise all possible numbers can be used. 

A label is an label identifier followed by a colon. A label 
points to the first instruction of the quaternary with bears 
that label. 

V 

The label value gives the machine address at run time of the location 
which holds the first instruction of the quaternary pointed to by 
that label. 


comment. 

Comments may occur between any pair of MIDIAL symbols, except 
within the character sequence of basic symbols or identifiers. 

All information of a comment, including the two hek symbols are 
disregarded by the compiler. 

In all the declaring operator lists ( GLOBAL , LABEL , FORMAL , LOCAL . 
ARRAY and VECTOR ) comments are not allowed before the semicolon. (;) 






















string. 


A string is a vector for literal text. It is copied in the 
vector stack area at run time out of the program room when it is 
used. The string token quo,te image denotes the equivalent of a quote 
within a string. Printing the string "THIS IS A "" (QUOTE)." gives 
the text : 1 THIS IS A " (qUOTE). 

The backslash symbol ("\") , written in a string, denotes a change 
to a new line character.. It has the value of LN. 

A backslash symbol itself can only be printed by means of a character 
value (%\). 

numbers and octal integers. 

The 12 bit word length of the PDP-8 is responsible for a big 
restriction in the size of numbers. 

Decimal integers should lie in the range of 0 till 2047 J0 (decimal). 
Octal integers consist of maximal four octal digits. 

The size of octal integers is restricted to 0 till 7777 . (octal) 

values. 

The character value of a character delivers the binary value of 
the character representation in the 8-bits ASCII code, (see the 
appendix, page 152) 

SP is the representation of a space (B 240) , and JLN is the 
representation of a line feed character (B 215 ). 

Th ; e character value of the character C can be written as %C and is 
equal to B 303 or in bits 000 011 000 011 • 

A control character can be represented in MIDIAL programs only by 
means of the octal value. So +Z (control Z) is represented by B 232 . 









■ 
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The octal value of an octal integer is represented by a basic symbol 
B, followed by that octal integer. It represents the octal'value of 
that integer, which can be used for calculation within programs. 

The value of the boolean TRUE is -1 (decimal) or J3 7777 , and the . 
value of the boolean FALSfj. is 0 or B 0. 

The logical value TRUE or FALSE in calculations without comparing 
operators is negatiye, respectively positive, e.g. the conditional 
IF (X:=7; X+Y) THEN a ELSE b FI is elaborated as follows: 
if Y is greater than seven the else-clause b is taken, otherwise the 
then-clause a is executed. 

algebraical operators 

All the algebraical operators operate on full bit operands. 

There are two monadic operators : the + operator and the - operator. 

The monadic - operator takes the complement value of the operand seen 
as number. In MIDIAL the two's-complement is used for the addition 
and the subtraction of numbers. This means that the negative value 
of a number is equal to the complement of that number (all bits inverte 
incremented by one. 

For -5 this is done as following: 

000 000 000 101 2 or 5 

one's 

complement : 111 111 111 010 2 

increment : 111 111 111 011 2 * or -5 or B_ 7773. 

Notice that the left most bit can be regarded as sign bit. 

There are four dyadic operators for calculation : the + (add), the 
- (subtract) , the * (multiply) and the / (divide) operator. 
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There are no priorities for dyadic operators, this applies also 
to all other dyadic operators, listed under dyacs in the syntax. 

They are elaborated from left to right. E.g. X+ X+Y*Z.has the 
same action as ( X + Y )* Z . 

logical operators. 

These operators perform action on the bits of the operand(s) itself. 
The monadic NOT operator performs inversion of its operand bit 
for bit. This has the effect that NOT N is converted to -N-l . 

Jhere are three dyadic operators : the & (and), the ! (or) and the 
<- (shift left) operators . For the and-operator and the or-operator 
the result per bit is depending on the bit values of its operands. 

A table of results for all possibilities is listed below: 


bit i 

operand 1 

bit i 

operand 2 

& 

1 

0 

0 

0 

0 

0 

1 

0 

1 

1 

0 

0 

1 

1 

1 

1 

1 


If the reader replaces the zeroes by false and the ones by true 
the table can be used as result table for boolean operands. 

The operand at the right hand side of the shift left operator 
defines the number of shifted places of the bits of the operand 
at the left hand side of the shift operator. 
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A negative shift number defines a shift to right over the number of 
bit places given by the positive number, e.g. B 0025 •*- 2 is equal 
to B0124 and B 0025 •«- -2 is equal to 5. 


At shifting left, the right most bit position is filled with a 
bit zero, at shifting right, the left bit is-filled with bit zero. 

compare operators 


All the compare operators are automatically dyadic and return with 
a boolean value depending on the two operands. 


The operators are : the < 
the <= 
the = 
the /= 
the > 

and the >= 


operator,or less than operator; 
operator,or less than or equal operator; 
operator,or equal to operator; 
operator,or not equal operator; 
operator,or greater than operator; 
operator,or greater than or equal operator. 


If the equation holds the boolean value true is generated as the result 
of it, otherwise the boolean value false is given as result. 


assignation. 

A value assigned to a memory location by means of the dyadic 
operator . This operator takes an address (left hand operand) 
and a value (righ hand operand), and assigns the value to the address. 
This means that the value is placed in that location. 

The nonvoiding value of the operand is the value which has been 
assigned, so that chain assignation is possible. 

Thus AX 3 A STORE 6; assigns 6 to the location which has 
the name STORE and also to the location on the third address in the 
X-store. ' 
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For programmer convenience the := operator may be used in stead 

of the :4- operator provided that the operand at the left hand 

side of it is, or is converted into, a secondary of address mode 

and is preceded by a £ operator. The compositions with the C 

» 

operator as , W , and identifiers which represent variables 
or parameters are allowed too. 

Thus the assignment of the example above can also be written as 
X 3:= STORE := 6; 

These conventions mean that identifiers may be regarded as variables 
as in ALGOL. However the distinction between the address of a value 
and the value itself is maintained strictly. This distinction bears 
fruimt when passing parameters to subroutines, which has the same 

generality in MIDIAL as in ALGOL 68. 

* 

The two vector assignation operators (*-*- and *=) are treated in the 
chapter vector operations (see page 53 ). For the form *= the same 
conventions apply as for the := operator compared with the operator. 

Operator and becomes. 

The action involved in elaborating A ft(0V ,where A is an address, 

V is a value and ft is a dyac. (dyadic operator), is the same as 
the action involved by A(0 C A V . This with the exception of side 
effects in the evaluation of the address part A. 

The elaboration of A ft(0V is equal to A(0A ft V , v/here A is a 
reference the the value at the address A A . 

Fo.h example : the elaboration of CNT+:=1 ; is an incrementation 
of the value of CNT . And the elaboration of X <=:= 5 ; is equal to 
X := IF X <= -5 THEN TRUE ELSE FALSE FI ; . 











1 
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vectors. 


A vector consists out of a number of elements. These elements 
are located in consecutive memory locations preceded by the length 
of the vector. A vector whose elements are character values may be 
written as a string, e.g. VEC(%E,%.,%L,SP) is equivalent to the 
string "E.L " . 

A null vector is a vector with the length zero. It is written as 
VECQ or "" or [] . 

The value of a vector (the object required by all vector operations) 
is the address of the location which contains the vector length. 

This value can be treated as a vector pointer if it is saved in a 
memory location. The elaboration of a vector causes it to be created 
in the vector area at the top of the vector stack. (VAP) 

This vector stack top moves towards the stack top (STP), so the 
vectors are created top down in the core. 

The elaboration of X := "ABCVDEF" ; results in a vector stack as: 
X VAP VAPB 




:_zn 

6 

|A 

IB 

1C 

ID 

IE 

IF 

3 

ID 

IE 

IF 

3 

IA 

IB 

%c 



! 



The length and the elements of a vector may be copied into consecutive 
memory locations by the use of the vector assignation operators. 

These operators are the *«- operator‘and the *= operator. 

The two assignation operators and := only perform the transfer 
of the vector pointer, this as distinct from the vector assignation 
operators which copy the vector to its destination and reset the 
vector area pointer (VAP) to its initial value of the vector area 
bottom pointer (VAPB) of its own proceduring environment. 

This last action has the effect of a garbage collection: every new 


/ 
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created vector overwrites previous defined vectors. 

This garbage collection is explicitly done by the evaluation of 
the RESET instruction. The action of the RESET operator can be 
written in MIDIAL as : EXPIR( RESET: VAP:=VAPB ); 

This operator is used for garbage collection in programs which 

use for assignments of vectors the and the := assignation operators 

only. These operators do not influence the vector stack. 

vector operators. 

The vector operators take one (monadic) or two (dyadic) vectors as 
their operands, or better : operate with vector address pointers 
pointing to vectors. 

The monadic vector operator COPY makes a copy vector of its vector 
operand in the vector stack and returns with the vector address of this 
copy vector. 

The . operator or concatenation operator joins two vectors. 

For example: the elaboration of "SWITCH" . "BOARD" creates the 
vector "SWITCHBOARD" and returns with the address of this vector. 

The SL operator or slice operator takes two vectors as its operands 
and slices the first according to the first tv/o elements given in its 
second operand. If the second number is less than the first number 
a null vector is returned as result of the operation. 

Slicing with a vector of one element n (>0) 0 r with a null vector 
gives unpredictable results. 

Thus the elaboration of "FATHER" SL VEC(3,5) has as result the Vector 
"THE" ; the elaboration of "COMPETITION" SL VEC(3,4,7.91 has the 

value "MP" and the elaboration of VEC(1,2,3.7.81 SL VEC(3) has as 
result the vector VEC(3,7,8) . 
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MEM 


HD 





The MEM operator or member of-operator searchs in the second operand 
for occurrences of the first operand as a substring. 

A vector containing all the start positions of these occurrences in’, 
the second operand. For example: the elaboration of "EN" MEM 
"INDEPENDENT" delivers the vector VEC(6,9) . 

The HD operator or head of-operator returns the boolean value TRUE 
if the first operand is a heading substring of the second vector. 

If the first operand is not a heading substring of the second vector 
operand, the boolean value FALSE is returned. 

For example the elaboration of VEC(2,4) 1® VEC(2,4,7,U) delivers 
the value TRUE , and the elaboration of "AJAX" HD "AC MILAN" has the 
value FALSE . 

In addition to these operators,nearly all operators, algebraical 
as well as vector operators, have a corresponding vector operator 
which takes a vector, or a pair of vectors, as operand(s) and perform 
the operation given by the operator element by element . 

They are-distinguished by being followed by the @ symbol. 

The dyac n followed by the @ operator (at-operator) has the following 
capabilities : 

1. the operand vectors are of equal length : 

the dyac is applied element by element on the two vectors. 

For example: the elaboration of VEC(a,b,c) fi© VEC(p,q,r) results 
in the vector VEC ( a si p,b si q,c nr). 

2. * the first vector operand is longer than the second vector operand: 

the operations are done only for the elements which the second 
possess . For example: the result vector of the program part 
VEC(a,b,c,d) «@VEC(p,q) is the vector VEC(a si p,b n q) . 
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3. if the second vector operand is the null vector, then the result 
of the operation is a null vector, e.g. the elaboration of 
VEC(a,b) ft(^)VEC() delivers the null vector VEC Q♦ 

4. if the first operand is the null vector, then the result vector 

i 

is an undefined vector of the length of the second operand vector. 
For example: the value of VEC Q n(0VEC(a,b,c,d) is an undefined 
vector of length four . 

5. if the first vector operand has a smaller length than the second 
one, but none of them is the null vector : 

' for the corresponding elements is the operation done as for vectors 
of equal length, but for the last element of the first operand, 
the operation is repeated with all the remaining elements of the 

second operand by operating with the intermediate result. 

* . 

For example the elaboration o fthe program part 
VEC (a,b,c) fl(<§) VEC (p,q,r,s,t) has the vector 
VEC (a fi p,b n q,(((c fi r) ft s) fi t) ) as result . 

Note: a,b,c,p,q,r,s,t denote values after the elaboration of that 
element part. 

Examples of calculations using the @ operator are : 

Calculation of the sum of the elements of a vector : elaboration of 
VEC(O) + @ VECQ,2,3,4,5,6) delivers the vector VEC(21), 
and the elaboration of the program part 
; (CNT:=0 ; VEC(O) + @ (10+((G\T+:=1)*CNT))) is the 

representation of : 10 













(the + operator elaborates its second operand the number or times 
denoted by the first operand, and deposits the intermediate results 
of each elaboration of the second operand in a vector.) 

Cyclic interchange can be dpne by the following program part: 

C @ VEC(A H,A I,A J) := @ VEC(I,J,H); . 

There are still three vector operators undefined : 

COMPjj T) The COMP basic symbol followed by the @ operator compress its first 
vector operand with the second operand as follows : 
if an element of the second operand is equal to the boolean value 
FALSE ,or is in generality not negative, then the corresponding 
element of the first vector operand is dropped for the resulting vector. 
The elements of the second operand which are TRUE ,or in generality 
possess a value which is negative, are copied in the resulting vector. 
The operands must have the same length, otherwise the result is 
undefined. 

For example : the elaboration of VEC(3,5,4) COMP @ VEC(TRUE, FALSE ,-10) 
has as result the vector VEC( 3,4 ) . 

EXPAND @ The expand operator is denoted by the basic symbol EXPAND followed by 
the @ symbol . This operator is the opposit of the compress operator, 
it inserts an element of the value O'on the element places where the 
boolean value FALSE or in generality a positive or zero value occurs 
in the second vector operand. The TRUE or negative value elements 
denote that the corresponding elements of the first vector operand 
are copied into the result vector. 

For example: the elaboration of VEC(1,2,3) EXPAND © VEC(-1,0.-1.-1.01 
delivers the following vector VEC(1,0,2,3,0) . 

























And the elaboration of the program part 

M4SK:= VEC (-1,0,0,-1.0.-11; TXT1:= "ABC" ; TXT2:= "DEF" ; 

C TXT1 EXPAN D @ MASK) + @ (TXT2 EXPAND @ NOT @ MASK ) has the 

between result VECfA.O.O.B.C.O) + @ VEC(0,D,E,0,0,F) and as result 
the vector VEC(A,D,E,B,C,F)'. 

The basic symbol ST followed by the @ operator is called the straigthen 
operator, it flatten a vector of vectors. 

The elaboration of ST @ VEC( "AB",VEC(1,4,5) ,OCTS(B 7654) ) 
delivers the vector VEC(t4,IB,1,4,5, %7, 16,IS,14) . 

This operator is used often to print the decimal conversion of all 
vector elements of a vector : 

ST@DECS@VEC(.) . (see the example of the triangle 

of Pascal ). 

closed clauses. 


Closed clauses are either void or nonvoid. 

A closed quaternary train is void if its textually last quaterary is 
void, otherwise it is nonvoid. In the last case, the value of the 
quaternary train is the value of that textually last quaternary 
For example : (COUNT:=1 ; RESET ) is void, the value of 
(COUNT:=0 ; COUNT+7) is 7. 

• conditionals. 


If the selector of the if chooser is negative, in pati.cular has the 
value TRUE, then the quaternary following the basic symbol THEN is 
elaborated. - 
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Otherwise the el if sequence is elaborated if this sequence is 
specified, else the quaternary train following the basic symbol ELSE 
is elaborated, if it is specified. 

If the else-clause does not exist, the conditional is balanced to void. 
The basic symbol ELIF is a'combination of ELSE and , but the if 
of it has no opening function as the basic symbol JUF has. 

This means that one closing symbol closes a IF..THEN..ELIF..THEN.. 
ELIF..THEN...ELSE.. construction. The preprocessor inserts before this 
closing symbol a number of closing symbols for the elifs of the inner 
conditionals . 

For example : IF X= ? 0 ( THEN C+:=lBLIP X=|' THEN "QC" ELSE 
VEC(X) FI delivers for a ( symbol as value of X 
a vector with a ( symbol, a ' symbol and a ( symbol. Meanwhile C is 
incremented with 1 . If X has not the character value of an open 
parenthesis or of a single quote sign, the value of the operation 
is a vector with as element the value of X. 

The selector of a case-conditional with value n selects the n-th 
quaternary after the basic symbol JN . If its value n is less than 
one or greater than the number of elements in the quaternary train list 
after the jfN , then the quaternary train after the basic symbol OUT 
is selected,if it is selected . 

If the out-case is not specified, the selectands are balanced to void. 
For example : V CASE PARAMETER IN LABI,LAB2,LAB3 OUT LAB4 ESAC ; 
selects the calling of an expression depending on the value of 
PARAMETER . If PARAMETER has the value 2 , expression LAB2 is chosen, 
if it has a value less than 1 or greater than 3, the expression LAB4 
is implemented. 




















- 60 - 


o 

(. 

( 

(1 

€ 

C 

e 

( m 

X^i 

o 

p 

9 

G 

o 

o 

o. 

o 

o 

o 

0 

o 

o 

o 


And the program statement C( PAR THEN A CNT1 ELSE A CNT2 ) -: = 25 ; 
is an conditional assignation. Here the advantage of the distinction . 
between an address and a value is clear. 

t 

while. 


The while construction M1ILE condition DO body OD ; has the 
effect of a repetition of the elaboration of the body part until 
the condition becomes a value which is not negative, particularly 
Becomes the boolean value FALSE . 

The while construction WHILE TRUE DO....OD; defines an infinite 
program loop, and this loop can only be interrupted above the 
program elaboration level, e.g v by striking the +C (control C) 
key at the system keyboard. 

create. 


The + operator or create operator procedures its second operand 
into an expression (see expressions, page 67 ), calls it the 
number of times given by the operand at the left side of the + 
operator, and constructs a vector of the values of the called 
expression . 

By voiding the result vector, this operator can be seen as a 
for-loop of ALGOL . 

Thus the value of 3 + (2 +5) VEC ( VEC (5,5), VEC(5,5), VEC(5,5) ) 
and the statement STORE := 50 +0 is a v/ay to set the 50 store 
locations following STORE to zero. 














* 






declaration! operators. 

The VECTOR operator reserves store locations in the X-store 
for vector operations v/ith identifiers into this store. 

The identifiers in the identifier list are allocated consecutively 
to memory locations in the X-store. 

Vector assignation to the first identifier in the list has the 
effect that the value on the address of this identifier becomes 
the vector length. The values of the following identifiers are 
the consecutive element values of the assigned vector. 

For example: after the execution of VECTOR LNGTH, ELI,EL2,EL3,EL4; . 
LNGTH *= VEC(A ELI,A EL2,IH,IL); the value of LNGTH is 4, of ELI 
and EL2 the values are equal to the addresses of themself , and 
EL3 has the character value H apd EL4 the character value L. 

The ARRAY operator reserves store locations in the X-store for 
vector assignation into this store as the declarational operator 
VECTOR does, but after the array identifier a number is given which 
denotes the number of X-store locations to reserve following the 
location pointed by the identifier. No identifier name refers to 
these 'element locations' . 

For example: the elaboration of the program part 

ARRAY TEXT1(3),TEXT2(4) ; H:»1 ; TEXT1 *="CAT" ; TEXT2 *="DOGS" 
gives the following X-store lay-out : 


TEXT1 


TEXT2 


H 
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The FORMAL operator allocates the identifiers following the 
operator in the formal identifier list in the Y-store. 

These identifiers are used as named formal parameters-of 
subroutines. These identifiers refer to the locations which are 
filled in with the actual parameter values at the call of the 
subroutine'. 

Note : The declaration of the formal parameters must be done 
before a declaration of local variables. 

For example: the McCarthy's F91 function (4) 

’SUBR(F91 : FORMAL NUMBER; 

( NUMBER>100 THEN NUMBER-10 ELSE F91 (F81 (NUMBER+11)))).;. 
This fuction generates as result for all numbers less than 102 the 
number 91 recursively. 

The LOCAL dec!arational operator allocates following identifiers to 
the Y-store. These identifiers can be seen as variables for local 
usage. For example the interchange subroutine: 

SUBR C CHANGE: FORMAL X,Y ; LOCAL HELP ; 

HELP:= CX;CX:=CY;CY:= HELP ); 

This can be written shorter as : 

SUBR(CHANGE : FORMAL X,Y ; C @ [ Y,X] :=@ C @ [X,Y] );• . 

The declarational operators LABEL and GLOBAL are treated at page 46 . 
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input and output. 

All transput operations take place on files. 

A file consists of a vector having three (or more) elements. 

The first element is (the address of) a vector which contains 
(on input) or will contain (on output) the values transferred 

The second element is an integer file index which acts as the subscript 
for the file or buffer vector given in the first vector element. 

The third element is (the address of) an escape subroutine. 

This subroutine is called if the source or sink file is exhausted, or if 



If the error subroutine is called the first formal parameter will 
be the file address. If the error occurs at an output operation, 
the second transferred parameter of the error routine will be the 
value to output. 

The value returned by an input operation is the value of the transput 
operation. 

If a transput operation is done without error , the file index js 
incremented with one. 

The user is free to initiate other transput operations or alter the 
file or file index in any way .he wishes by means of the escape or 
error subroutine. 

By means of this file structure it is. possible to impliment buffer 
structures for input and output operations. 
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The monadic operator obtains a value from a file (vector address). 
For example: the elaboration of : 

( FILE:= VEC("INPUT",2, SUBR (FAIL: .)) ; R FILE ) 

delivers the character value %N, and the file will be 
changed to VEC("INPUT",3,SUBR(FAIL: *.) 

The monadic operator AP converts its operand, a file (vector address), 
into a conventional address. Assignation to this address with the 
assignation operator places the assigned value into the file. 

A vector assignation to this file causes the transfer of all the 
vector data elements, (the length is not transferred) 

For example: after the three next operations 

FILE:= VEC(20+0 , 1 , SUBR (FAIL: ....) ); 

• P FILE *= "INPUT AND " ; P FILE *= "OUTPUT" ; 
the result file will be : 

VEC ("INPUT AND OUTPUT",! 7, SUER (FAIL: _)); , 

where "input and output" denotes the vector of twenty elements 
filled with the 16 transferred characters. 

As it can be seen in the example above, the combination of the 
two operators C and AP may be shortened to £ . 

input and output to external devices. 

By convention the files with the vector addresses 1 to 4 are 
associated with external devices. They are seen as vectors of 
length zero with an infinite capacity. 

The files addresses 1 and 2 are reserved for the teletype input' 
and output, (not buffered) 
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For example : the execution of PI:=IL ; causes the printing of a 
character L on the teleprinter, and the elaboration of X:=R 1 ; is 
the reading of character of the teletype keyboard and assigning 
that character value to X . 

The file addresses 3 and 4 are used for the input and output by 
means of buffered device handlers. These input and output devices 
are given to the system in the file command string, (see page 96 ) 

The input and output file channels 1 and 3 are specifically for 
character transput : on input, a line-feed character is deleted 
from the input string, but the echo of channel 1 on the teletype 
printer generates this line-feed character after every carriage-return 
character. 

On output a line-feed character is generated after every carriage- 
return character, as well as on channel 1 as on channel 3. 

The input and output file channels 2 and 4 are specifically for 
other transput operations as for example transput operations of 
binary code . 

Transput operations on these channels do not perform any character 
generation, dropping or echoing . 

other file operators 

The DECIN operator will read from its file operand a possibly signed 
decimal integer of at most four digits. The integer is terminated by 
any character which is not a digit. 

The returned value after the execution of this operator on a file is the 
integer converted into a number of twelve bits length. 

The OCTIN operator will read - from its file operand an octal integer of 
at most 4 octal digits. Termination is also done by 
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a character which is not an (octal) digit. 

The DIGIT operator will read its file operand consecutively until 
a digit is detected. The value returned by this operand is this 
digit character. 

Note: to obtain a numerical digit value from the digit character 
subtract the character value %0. 

The ALPHA operator acts as the DIGIT operator, except that the 
detection is done on the first letter or digit character, and 
this character is returned. 

The CHAR operator reads from its file operand a character. This 
operator skips all control symbols, the rubout symbol, the 
carriage-return character and the line-feed character, spaces and 
the altmode character. 

Examples : P 3:= "READ NUMBER" will cause the string 

READ NUMBER to be transfered to the output buffer 
of the output device given in the file command string. 

P 1:= ALPHA 3 ; will cause the first digit or letter 
in the input buffer of the device given in the file command 
string to be printed on the teleprinter. 

P 1 := ALPHA VEC("$U(($$ 9 o3A&", 1, SUBR (FAIL: HALT)) 
will cause, if executed, the character 3 to be printed, 
and file index is changed to 10. 

output conversion operators. 

The DECS operator converts its operand, a number, into a string of 
5 ; characters. The first one is a space for positive numbers, or a 
minus sign (-) for negative numbers respectively. The following four 
characters are digits. This string is the signed decimal representation 
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of the operand at the right hand side of the operator. 

The OCTS operator produces a string of four octal digits of its • 
operand. This string is the octal representation of the operand. 

For example: the elaboration of the program part 

SUM:= DECIN \l) + DECIN (1) ; P 1:=SP ; 

P 1*= DECS (SUM) . M ". OCTS (SUM) .VEC(LN) ; 

will read two decimal integer (possible signed) of the teletype 
keyboard, and prints on the teletype - the sum in decimal and in 
octal notations. 

procedures. 

There are three proceduring operators : PROG , SUBR and EXPR . 

All proceduring operators procedure their secondaries, which 
means'that at the elaboration of the PROG, SUBR and EXPR operator 
the secondaries are not evaluated but are skipped. These secondaries 
can be executed by calling them with special call operators. 

The value of a proceduring operator working on a secondary, which 
is the value neede for the call operator, is the address of the 
first instruction of the secondary in the memory. 

The proceduring operator EXPR procedures its secondary, which 
denotes an expression which must be evaluated at the moment of call.. 
The Y-store referred to within an EXPR is the same is procedured 
without a change in environment. 

The proceduring operator SUBR is used as procedure in the ALGOL way. 
Every call of a subroutine'(or SUBR secondary) creates a new 
environment of Y-store locations which are used for parameter transfer. 
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V'/ithin the secondary of a SUBR operator three operators are defined 
working on Y-stores, the M , jf and £ operators. They are treated 
at page 71 at the subroutine call. 

Note : the address returned by a EXPR or a SUBR is equal to the 
value of a label pointing on the first executional statement 
of the secondary, so these secondaries can be called by using this 
label. 

The proceduring operator PROG procedures its secondary as a program. 

At the evaluation of it, an own X-store and an own Y-store is created. 
No references and data transfer is possible v/ith the outer scope 
(environment) except by means of the W-store locations. 

calling of expressions. 

* 

Expressions, which are the secondaries of EXPR operators, are 
called by means of the £ operator. This operator calls the secondary 
which starts at the address given by the operand. 

No change of environment of Y-store locations is made on such a V call. 
For example : execution of the following program part: 

( EXPR (IN: P 1*="NUMBERS:"; DECIN (1) +DECIN (1) ); 

MULE TRUE DO 

PI. := LN ; P£*= DECS( V IN ) ; P 1 :=LN 
OP ) causes the sum of the read numbers 

printed as a decimal number to be printed on the teletype. 
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The address delivered by the EXPR operator is voided within this 
example, but can be used as follows : 

( X:= EXPR C P 1 *="NUMBERS:" ; DECIN (1) + DECIN (1) ) ; 

WHILE ' TRUE DO 

P 1 := LN ; P "h *= DECS f V (X) ) ; P 1:= LN 

OD)'; 

Note : the address value stored in X is called by V, but because of 
the fact that V_ expects a label behind it, X must be enclosed 
between parenthesis, (see implicit definition, page 44 ) 

calling of subroutines. 

The secondary of the proceduring SUBR can be called with the $ sum 
operator. This operator works on a vecotr with address of the 
secondary of the SUBR as first element. 

The elements following the address element are the actual parameters 
The value returned after calling a subroutine is the value delivered 
by its secondary. If this secondary is void, the returned value 
after calling the subroutine is undefined. 

A subroutine can be also called as. a function. This can be done if 
the SUBR operates on a labelled secondary. 

The function call is as follows: 

label identifier( actual parameter list). 

For example: the following calls are equal : 

■ SUBR (CALL: FORMAL PAR ; IF PAR=0 THEN 1 ELSE 

PAR * CALL(PAR-1) FI ); 

X:=CALL(5) ; Y:=$ VEC(CALL,5) ; Z:=..CALL..(5) ; . 

The ..label identifier., operator is a user defined operator. 
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This operator can be used either monadic or dyadic, depending, 
on the number of formal parameters used in the subroutine, 
in the program day of the date (page 132) this way of 
calling is used for a modulo function. 


At calling a subroutine the following actions are taken by the 
system : 


1. the return address is pushed on the stack top. 

2. the vector bottom pointer (VAPB) is pushed on the stack. 

3* the address of Y. 0 (= AY^ 0) is pushed on the stack. 

4. the vector bottom pointer is moved towards the vector stack top 
pointer (VAP) or : VAPB:=VAP . 

5. the AY 0 pointer is moved to the location following the last 

- - * 

stacked value (AY 0 of the last environment) 

6. the actual parameters are transferred as a vector into a newly 
created Y-store. 

7. The stackpointer (STP) is moved to the location address following 
the location of the last transferred parameters . 


So every subroutine call creates a new environment. In the next 
lay-out a diagram is made of the memory after a call of a nested 
subroutine. Every ' denotes a call of the subroutine, and the 
pointers with two single quotes denotes the pointers which belongs 
to the environment of the second call. 


l-z° 

e °>i\ 




fro3f 


sUv-o| | X-SUk-c 1 1 | T 


mi 

rrn-ji-'Tr .ijr: Y"- 1 ? 

STP" VAP* 

Ay‘o~ vX ? '. 


: xr:rg 


Ay'o 

























- 71 - 


As it can be seen from the store lay-out Y -1 denotes the old 
AY' 0 pointer and -2 the old VAPB pointer. 

The monadic operator M applied on an Y-store variable or an If operator 
exposes the previous procediiring secondary environment. 

M acts as a parameterless procedure which is called. 

This means that H Y 2 refers to the second Y-store of the environment 
which called the current environment. 

The combination of the ^operator applied to the £ operator is 
provided by the £ operator. 

Thus the following subroutine can be defined : 

SUBR (FAC: IF N1=0 THEN 1 ELSE N1*FAC( EXPR (M1-1))H ) ; 
this corresponds to the ALGOL 60 program : 

integer procedure fac(i) ; begin fac:=if i=0 then 1 else i*fac(i- 

end ; 

As it can be seen,in the example, the value given in the recursive 
call is procedured with EXPR to enclose the value in an environment. 

The Z operator is the combination of the £ operator applied to an 
£ operator. ( Z = CY ) 

This operator is specifically used if transferred parameters of the 
subroutine are of address mode. 

At the end of the elaboration of a subroutine call,all pointers 
stacked at the call are restored. The vector area top pointer 
(VAP) keeps its value. 

The loader is a subroutine too. So it can be called from the program 
(see page 102). 
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calling of programs. * 

The operator CALLPR is used for calling a program. This operator 
takes the address of the first instruction of the called program, 
delivered by the proceduring operator PROG , as its operand. 

When a program is loaded by the loader, it can be called by operating 
the CALLPR operator on the address following the program buffer start 
address. 

At calling a program, the following actions are taken : 


the AY 0 pointer is pushed on the stack. 

the vector area bottom pointer (VAPB) is moved to the vector area 

top pointer. (VAPB:=VAP) 

the AX 0 pointer is pushed on the stack. 

the value of the stackpointer (STP) added with one is pushed on the 
stack. 

the AX 0 pointer is set to the location following the stack top. 
the AY 0 pointer is set to this location too. 

X. 0 9 e ts "the value B^ 0100 and the stackpointer is incremented with 
this value, (declaration of 64 X-stores which belongs to this program) 


The store lay-out after a program call is as follows 
(a ' denotes the pointer after the call) 



VA** 
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As it can be seen from the store lay-out X-2 denotes the AX 0 
address of the environment before the call, and Yr-3 the AY 0 
address. 

The program calls may be nested to any depth. Each successive call 
handing on to the called program the store resources it has left unuse 

A program is left when a jump is made to the end of program routine. 
The resources used by the called program then are deallocated, and 
the program which called the inner program is reactivated. 

The RESET operation is done for the vector stack used in the program 
by the program end routine l . 

The value returned by a CALLPIR operation is undefined. 

Data transfer between a program and an embedded called program 
is only possible by means of the W-store or common variable room. 

From inside of a called program there is also a possibility for data 
transfer to or from the X-store of the calling program by means of 
the AX 0 address of it, which is stored in the )G-2 location as seen 
above. 


goto. 

The GOTO operator causes the next quaternary to the elaborated to be 
the one whose first instruction is located at the machine address 
which is given by the operand of the GOTO. 

If the operand does not have the same value as could be possessed 
by some label, then the subsequent action is undefined. 

Usually the operand will be a label, though it need not to be : 


LVAL:= LABEL1 ; 


; GOTO (LVAL) ; 












ft 


m 







- 74 - 


has the effect GOTO LABEL1 ; . 

Notice that if an identifier is used after a GOTO and that 
identifier is not a label identifier, that this identifier has to 
be enclosed by parenthesis, (see identifiers, page 44 ) 

miscellaneous. 

The SKIP operation is a no-operation instruction. (J3 7000 on the PDP-8) 
This dummy instruction can be used for creating free locations in the 
programstore or can be used as a dummy instruction in a case 
conditional. 

For example : CASE SWITCH IN SKIP,X+:=1,Y+:=2,SKIP OUT RESET ESAC ; . 

The TABLE operator procedures its following operand. 

The table items are stored in consecutive memory locations. 

A string is stored as a vector of characters in this table store,which 
is embedded in the program store. 

The item list of the CODE operator is seen as a list of directly coded, 
non-relocatable , machine instructions. These instructions are 
incorporated in the binary code as directly outputted data frames. 

The SREG value gives the contents of the switch register of the 
computer. 

For example : WHILE SREG/ =1 DO wait-loop OD ; . 

The exit or HALT operation (J3 4000) will cause a jump to the error 
routine. This error routine will print an error line ("SYS ERR AT nnnn") 
and closes the output file before returning to the Monitor. 





















6.4 THE PREPROCESSOR. 


The preprocessor is an one pass translator from Midial to Minial. 
Therefore the declarational operators are introduced in Midial to 
translate rigth identifiers on place where there is no clearness of 
how the identifier must be translated correct. 

On the next pages the design of the identifier list of the preprocessor 
is given, followed by the flowcharts-of the preprocessor. 

After these pages the listing of the preprocessor written in Minial is 
added,,but , because of its greater readability, the preprocessor 
version written in-Midial (page 106) can be used for understanding 
the preprocessor itselfs. 


The prepocessor minimum system,which is used by all the preprocessor 
versions, has only the following operator subroutines : 
the , HALT , RESET , CALLPR ,V,$,X_,Y,AX,AY,f, 

Ji » iL * COPY > DECS , GOTO , DCL , all assignation operators , HD , 
all relational operators , & , ! , , all defined operator and becomes 

operators , EXPR , SUBR , PROG , and all CASE, WHILE and IF constructions. 














THE PREPROCESSOR IDENTIFIER LIST DESIGN. 



progran 

X-store 


list begin 
pointer 



current 

list 

pointer 


end of 

list 

pointer 


2.4 6 

1 3 5 



- identifier joined value 

— variable or label name (till 6 characters) 



the three top bits gives the class: 


0 

1 

2 

3 

4 

5 

6 


- local label (L) 

- parameter (Y) 

- global label(G) 

- variable (X) 

- ]-(sub) indicator. 

- elif count save word. 

- local y-count save and parameter 
level save word. 


the lowest nine bits hold the parameter level 
value for a local label,or name, or save word.! 


if all the twelve bits are 1 (£7777) then 
the cell is free. 


Characters : six characters are packed in three memory locations for 

remembering an identifier name. 

This is done by subtracting £0257 from the character value. 
The digits 0 till 9 are so represented as £01 till £12 , 
and the alfabetical symbols A till Z are represented as 
£22 till £53 . 

A zero represents a blank symbol. These zeroes fill not 
used character places . 






































































Identifier joined value : is the value given to the identifier by the 

preprocessor when the identifier is declared 
implicitly or explicitly . 


Sub-indicator : 


is Y a list cell which indicates that,if a close 
token is met which closes the level where the 
sub-indicator is created, this close token must 
be converted to a sub ( ]) character. 

This occurs at the closing of a function call 
or at the closing of a vector given by VEC( . 


Elif count save word 


This save v/ord holds in the location where 

normally the first two characters are packed, 

the count of the number of ELIF's on the outer 
* — 

level (or scope) . 


Local Y-count save 

and parameter level save word : 

This word contains the Y-count (character 1 and 2 
and the parameter level (on character 3 and 4) of 
the outer parameter level. This word is generated 
at the entrance of a SUBR or of an EXPR . 

When there are no more free list cells within the identifier list 
at the time of the declaration of an identifier or of a level word, 

. the end list pointer is moved 5 positions (or memory locations) 
further and the identifier or level word has been placed.in this 
new created cell. 

This can be done until the stack begin is reached. 
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THE PREPROCESSOR 
DRIVER 


leu b ; - XC h b : - cjc-nt : = ao ; Scope •.= e-lifc-ob • -o ; 

pQi~lev:= 1 ; PtgPoUhd:= Pcjlse 


ini.bla.lise Li sb pointers ; create 1 evuply Lisb cell 


declare trine ima.* imcxL X-stov-e Pov- LLe List 


readclo ar ( -a,c 


O U b pub 


"(DCL(IOO);" 


repectfc’ while m pufcha^ CNTRL Z —frleehd- 



• Co >rima skip 

— 

scope 

> o 7 ____ 

——' ' c/ose tokens 

+ 

Y> tissi^q 



output warn 



while scope > o 


OutpuT a )- Symbol 


pop scope C scope i) 


output a. J-Symtol cmcb a ;-Symbol followed Lu 

knC* Pile end S^vntoL. 





























































-79- 


MID1ALSYM 

-tosic symbols- 


























































4 - 








NAME 



COMMENT 


NEXTCHAR 
Until, in pot 

ecjoat to A "ifr’' 


NEXTCHAR 


NEXTCHAR 


f SPLNTAB 


Out i L input not 
to SP ,IN,TAB, 
Porv<i Peeo^ null 


NEXTCHA r 


•reset flg I 

Ptgco nn m d : = 
Ptc*gv Palse 


NUMBEROUT 


outputi dentnv^ 
«. s de ci cxl 
huwbeh 




















































































♦ 






- 81 - 


popscope 


I < 


O 



G 




C 

o 




o 

o 


pus^scope 



pV'OC 


create 

(ocoil Count 

Sav^e wor ol witk 

Lev'el 

*ic scope 4-1 

c*cM wo not to Ir’sfc 

• pa^fev' 

: Scope 4- 1 

yc-nt : 

- o 


k 




















































- 82 - 


SEQRCH 




XDEFSRCH 

Setup X 

- ha^c 

Scared 

\ clc>v\ 7 

- 7^-^ 


—• — H- 


XDEF 

Ou tput 


"X” 


- Loops. E ARCH 



GDEFSP.CH 


gSEAKCH 

" — -^ 


joiKveot vc«.it>o 
:^[ gcHT +-~0 

hewe. to 

bwrr®^ 






















































- 84 - 


BEGIN >»hi DIAL To mU'IAL preprocessor,VERSION ? 

DATE 75/01/14 
BY H.LUIIJF 
T.H. DELFT 


LIST OF VARIABLES » 

XI -common variable 

X2 -LAST INPUT CHARACTER 

X3 -INPUT CHARACTER CLASS > 

X4 -G-CDUNT 

X5 -X-COUNT 

X6 -L-COUNT 

X7 -Y-COUnT 

Xfi -name LIST BEGIN POINTER 

X9 -NAME LIST end pointer 

XJ0 -NAME LIST CURRENT POINTER FOR LOOKUP OPERATIONS 

XII •CUPRFNT LEVEL % 

X12 -NAME BUFFER : LEVEL AND CLASS 

X13 -FIRST TWO CHARACTERS CF NAME 

X14 -CHARACTERS 3 AND 4 
X15 -CHARACTER'S 5 AND 6 
X16 -CHAIN NUMBER OF NAME 

X17 -CURRENT POINTER FOR SET ON LIST OPERATIONS 
X18 -COMMON VARIABLE 

Ifug F °FoCvD V !n T ^BL? HE ” STRUCTlJ « ICONVERT TO ISKIP) 
x?i -COMMON VARIABLE 

X?2 -MIOIAL SPECIAL WORD CHAIN NUMBER 
X23 -NUMBER OF ELEMENT3 
X?4 -CHARACTER 1 
X?5 -CHARACTER 2 

X26 -Character 3 

X27 -CHARACTFR A 
X28 -CHARACTER 5 
X29 -CHARACTER B 
X30 -FLAG V OFTECTEO. 

X31 -ELIF COUNT 

x32 -local variable level. 


# program qpiver # 

BEGIN INITIALISE# 

OCL(AW0-AXe-B0pfi0); 

P?**" (ocLfloa);« i 
X7:=xu :»X20:sX3l:*P|X32:si; 

XO{c fX8,*5X10:sX17JaAX33 #SET AFTER X-LIST# )+5 | 
CXlf:=-l ; HCREATE 1 EMPTY LIST CELL# 

YG34 ; PRESET FLAGS# 

X4jsx5j=X6;s2P ; # P F E S E T X , L AND G COUNT# 

VG3/ fcPEAD AND CLASSIFY# 

OTEvr.SCREENING ON THE HIGHEST LEVEL# 


.WHILE X3/*3 DO 
BEGIN 

IF X3*l THEN VG4P t 4 IDENTIFT£R/LAB£L# ELSE 
IF X3=A THEN VG1 RMIDIAL SYMBOL# ELSE 







t 
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if y;}ay thfm vgi t ^comment detected# else 

IF V3»14 THFH VG31 #SP,LN,LF# ELSE 

IF y.J-5 THFM V G S #0PEN PARENTHESIS# FUSE 
IF X3“o THEN VG7 '«CLOSTNG PARENTHESIS DETECTED, 

TEST PREVIOUS CHAPs; ,ppp ,R£aD # ELSE 
IF *3*12 THEN VG34;VG5 DETECTED 

PFSFT X19;OUT X AND FOLLOWING CHAP# ELSE 
IF X3 = 8 THEN X J 9 : sTRUE ft) DETECTED# ELSE 
IF V3=13 THEN VC*34;VG5; WhlLF X3/=13 DO VG5 


IjSKJP '* « string# else 

VG34 aOUTFLT CHARACTER# 

FI FI FI FI FI ) VG5 #PRI NT AND READ 1 CHARACTER# 
FI FI FI FI 

END i * 

VG35; # T E S T in 


ENq 


^OUTPUT HISSING CLOSING PARENTHESIS# 

IF X11 >pi THEN Pj*s»o" .OECS(yil) ) MISSINGO" J 

while xn>* do 

BEGIN VG7 flip OP AND DELETE LEVEL# 

VG8 . #PRI NT A ) SYMBOL# 

END 

FI; 

P3*s[y), y.i , LN , LN , 83232) #OUTPUT THE ) OF THE (OCL. 


# 



# 


EXPP(Gll #MJOIAL TO HIMAL STANOARD WQRDS CONVERTING# 


y ‘ ' 

#PEAD HIOIAL SYMBOL STRING and search in tarle# 

V03 I fthEAO SYHBCL# 

VG14 | #RE AO SYMBOL STRING# 

X15=G50 ; VGl2 #X16:sTRUE# ; 

*HILE (X)<sGSJ)XX18 DO 
BEGIN 

X22’ s (IF fX1 HD AX23)R(AX?3 HO XI) THEN #IN TA8LE# 
VG J 3 #X18 :sFALSE# I C(Xi+CXl+i) 

ELSE Xl+j=CXlf2 ; 0 

FI );reset 


IF (X22SB0fllO)sRePlO THFN 
BEGIN #FI CD ESAC END# 

#IF PREVIOUS*; THEN OUT ;SKIP # 

VG7 ; #POP LEVEL AND DELETE# 

IF X22 = B2012 THFN #OD# VGB OUT PUT ) SYMRGL# 
p EL5F. VG2 #OUT PUT MIN J AL SYMBOL# 

END 

ELSE 

BEGIN 

VG34 ? t'RESFT X I9# 

IF X22=0 THEN #NCT FOUND# VG2 #OUTPUT SYMBOL# 
ELSE 

IF (X22&R7770)*0 THEN 
BEGIN 

VG6 ; ttPUSH LEVEL# 

VG2; ^output symbol# 

IF X2?sBfc$’!i:2 THEN #00# P3?=X( FI 
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FLSE 

IF X22 S B0 401 THEM .GOTO. X30J* TRUE/VG2 ELSE 
IF X?2 = B?-15»C{ • THEM VG2/X14:=X32/ XJ3:sx7f 

.SUBR/EXPR LOCAL COUNT CHANGE# X12 ! =86000+ (X3?1sX 
. VG9 ; .TO LIST. X7 • s0 ELSE 

1^X22*07021 THEN .VECTOR LIST. $(G42,4) 

IF X2?=P3P22 THEN .ARRAY# $(042,5] ELSE 
IF X22=BP041 THEN .GLOBAL LIST. $(G42,3J 
ELSE i 

IF X22*R2042 THEN .LABEL LIST. $(042,2) 

else 

IF X22*B,1220 THEN .ELIF. X31 + J * 1 t P3* a "ELSE IF" 

else 

IF X22=BP100 THEN 

.FORMAL OP LOCAL LIST. *(G42,1) / 
P3*b"PCL(", DECS(X7) 

_ . ELSE 

IF X22=Pe2MJ THEN .VEC. 

VG27; .PUSH AND SPECIAL. 

X25=X ( 

ELSE 

IP X22=6P4P0 THEN WV. (X30SsTRUE;X2 i *%V) 

FI / 

VG3 
FI 
FI 
FI 
FI 
FI 
FI 
FI 
FI 
FI 
FI 
END 

FI ); 

EXPPCG2! P3*aAX?3 .OUTPUT THE FIN I ALGOL STANDARD WORD.)/ 


EXpR(G3: .READ and CLASSIFY INPUT CHARACTER. 

X3* s ( IF C(X2J=R3) > = X A ) g(X2<*X2) THEN .ALPHABETIC. 1 

IF (X2 >*X0)a (X2<s%9) THEN .NUMERIC. 2 ELSE 
IF x2b 80232 THEM .CNTRL 2. 3 ELSE 
IF X 2 = % ' THEN .MIOIAL SYMBOL. 4 ELSE 
IF X2sX ( THEN .OPENING PARENTHESIS. 5 ELSE 
IF X2=%) THEN .CLOSING PARENTHESIS. 6 ELSE 
IF X2*%. THEN .COMMENT DETECTED# 7 ELSE 
IE X2sX/ THEN .END OF LIST or STATEMENT. 8 ELSE 
IF .Y2c%: THFN .LABEL DECLARED. 10 EtSF 
IF (X?s7,s) J fX 2 sZ 0 ) THEN .ASSIGN. U ELSE 
IF X2sX% THEN .CHARACTER VALUE# 12 ElSE 
IF Y2sX'i THEN . " « STRING. 13 ELSE 

IF (X2 sSP) { (X2 = 0) l (X2 = li?l 1) l (X2 = B?i?) I fX2sLN) l (X2 = 

KX 2 B 82 H) then .space,tab,line feed,carr,return* 

else 20 FT FI FI FI FI FI FI FI FI FI FI FI FI)) 


EXPR (G4: .PRINT ONE CHARACTER. P3:*X2)7 


11 + 1 ) / 


ELSE 


B2P0) 

14 

/ 
















fc'XPR(65: WPRJNT,READ,CLASSIFY* VG4JVG3)/ 

txpRCGe: #push LFvEL*' xi2:bB5pi00+(xii + : = o tyi3:*x3n 
&STORF tLIF COUNT/AND RESET FLAGS* 
VGp; VG34 ; X3i:=0 ); 









EXpR(G7l 


EXpR(G8: 

F.XPPCG9) 


EXpP(G1p} 

E*P.S<G1H 

EXpP(Gi?s 

EXpP(Gl3J 

EXpp(Gi4: 
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# p 0P LEVEL.# 

#TE$T ; FLAG# VG35 ) 

# D E L E T £ FROM LIST# X10t=X8) 

WHILE X31>(2 00 (X3i«: i*l; VG8 #CLOSE ELIF# )/ 

WHILE X10<X9 DO 

6EGIN IF f (XI : sCX10) bB6K05» + xij ) i (yj 3860P0 + X1 1 + i) 
TH£k CXtajs-i? X7J3C(xif> + l) ; X32:=C(X10 + ?) 

#RESTORE Y COURT ANQ PARAMETER LFVEL# 

ELSE IF X1&B97778X11 #SAME LEVEL# THEN 
Xl-:sxil ; 

IF X1«B4000 THEN #SUB CHAR,# 

X2JsX] 

ELSE IF XlsB&?0p THEN X31 : =C (X 1P +1) 
#RESTORE ELIF COUNT# 

FI 

FI 1 CX10:= W 1 ^DELETE cell# 

FI . 

FI | 

X1P + I a5 «NEXT NAME# 

END) 

’ X 11 w♦s1/ ftLEV£L"J = l# 

Xl7!sX10)sX8 #RESET LIST POINTERS# )f 

P3)s%) #0UTPUT A ) SYMBOL#)) 


#SET name on LIST# VG12 #X1SI=TRUE#; 

WHILE X18 DO 

BEGIN If X17 <X 9 THEN 

IF CX17=«1 THEN VG10 #COPY IN LIST# 

ELSE X17*:=5 
FI 

ELSE X9+tsf)?VGl0 SCOPY AFTER LIST# 

FI 

Enq ); 

#COPY name from eUFFER TO LIST CELL# 

X21ISAX12M/XI18X17-1} 

WHILE (X21+)=i)<AX17 00 
C(xi + s*n :=CY 2 i ; 

VG 13 #X18:*FALSE#)/ 

#SKJP COMMENT# VG5)WHILE X37 s 7 DO VG5)VG5)/ 

X 18 * *TRUE )J 
X18 IsFALSE )/ 

#NAME ’0ETECTE0)SETUP BUFFER# 

VG12 #X18:=TKUE#? X l I =X 1 2 .* =X 1 3 J *X 1 4 : 3X 1 5 5 =X 1 6 J a 
X23 :sy24:=X25:sY26:sx?7: S X28:5X29JS0 ; 

WHILE (X1£?(X1<6T) 00 

BEGIN IF (X3sl) { (X3sj>) THEN 

BEGIN C(AX24+X1):=X2 / 

X2-! =00257) #&UllD NAME# 

CfAX13+(Xl/2))+t=(lF rxt-((Xl/2)*2))sp THEN 
X?OG ELSE X2 FIT) 

VG3;#READ AMD CLASSIFY# 

X23* s (Xl + 5 a l) ' #NAME LENGTH# 

END 

. ELSE VG13 #X18:=FALSE# 

FI 
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END; 

WHILE XmUX3 = l) 1 (*3=2)) 00 

BEGIN VG3 frNAME LONGER THAN 6 CHAR.SA 
ENO ), 


EXPR(g2pj fe C R E ATe SPECIAL: AT LEVFL-POP THEN ) TO /« 

VG6;#PUSH LEVELS X i 2 : c840flfl+ x J \; VG9»T0 LIST# )f 


EXPR (G21: alookup IN TABLED 

XUj:sy<} r .s;xi6:=p;x2{ , J=TRUE; 

WHILE (X2P& f (X10+.JC5) <X9) 1 00 

BEGIN Xi:=-i;vGi2 AX18:*TRUF/// 
WHILE (X18X((Xi + ;at)<4)) 00 


tc Jr« C i. AXl2 ''' X -^ / = CCXlp, + Y1) THFN VG 1^ # X18:=FALSE« FI f 
IF X 1 8 THEN X2A : -F ALS£ AFOUND# } X 1 6 : sC (X 1 P + 4) * 

FI «NOT FOUND! LOOP*/ . 

END ) ; 


£XPR(G22: ^SEARCH X-MAME* X 1 2 : =03000 / VG2 I ; //SEARCH y« 

IF VJ6 THE^ U A K’£W N 4 ,M £ # 

VC EXPR (G221 J XI?: =83000 ; XJ6*-CX5+:~j) / //CHAIN// 
CT , vu VGS //ADD TO LIST# )) 

F I; XX //OUTPUT X# )/ 


ExPR (623: aSFAPCH G*A 

Xi2:sP2eO«;«SETUP GA VG21 //and search// 


EXPR(G24: aseapch LOOP until 0 LEVEL// 

Xi2+ : = 1 / xisjcct / 

WHILE CC(Cxj2»: = l)gP0777)/s0) s (Xl 6 = 0 )) 00 
VG21 //SEARCH// ); 


); 


EXPR(625J a$F APCH y IOENTIFIEfi// 

v FVFf? CC25H ft ^ A J^JJ TIFIER J ; X12l!,X32 + B1000 * LEVE L *32*)J 


EXPRC626: //search l-labela 

;rir (M »«Ap2H«, L<pEi -?, • l « ei *»■>» 

EXPSCGJ?: #0IITPUTX16*. P3*e(DECS(X16))« tSPl )> 


EXPR(028 


; //SEARCH AND DEFINE GA VG23 ; //SEARCH 
IF xifi = p THEN X16:s(X4+:st) ;V-G9 FI 


EXPR(G29: ASEAPCH aNO DEFINE YA VG25 : 

if x 1 6s0 ,then 

FI EXPR CG291; VG251 ? X1G : = (X7+ .* a \ ) f yog ) 

EXPR (630: //DEFINE L-LABELft 

VG251 f ASETUP L# V16: = (X6+Js1) | VG9 A TO LIST# ); 

EXP.RCG31I ASK IP And OUTPUT CR,LF, TAb,SPA 
WHILE X3=14 DO VGS 

EXPR(G34{ PRESET X19 FLAG# X1 9 : a x3f* : *F ALSE 5; 

EXPR(G35: A TEST /) COMBINa'tION/OUTPUT "SKIP" IF SO A 

IF X19 THEN P 3 * s " S KIP " ; V G 3 4 # R E $ E T # FI )/ 
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EXPp(R 4P i : //IDENTIFIER DETECTEC// 

IF X3 -7 //COMMENTS THEN VG11 FI 

V^L L , WSKIP SPACES, LINE 
IF X3 = i0 THEN in DETECTED*/ 
BEGIN 

_ VG3» z/REAC NEXT// 

P3{a IF X3s 11 H Js« THEN 

begin 

Vg?5 ; //SEARCH Y« * 

IF Xl6=e THEN VG22 
p . ELSE XY 

end 

else //LABEL// 

VG26; //SEARCH L# 

IF Y16s0 THEN «R// 


VG14;*?reao NAME« 

f 

FEEDS ETC// 


END 

else 


«x 

«Y 


IDENTIFIERS 

IDENTIFIERS 


FI 
FI 1 

VG27 


flse XU 


VG28/XG //SEARCH AND DEFINES 


I P3 J =Xl //OUTPUT XI6 AND IU 


IF X3s5 


AX (A 
VG28/ 
VO 2?/ 


ELSE 
P3» * 
IF 


THEN //PROCEDURE NAME4 
//SEARCH AND DEFINE G// 
SSf’ECIAL TO LISTS 
P3* e "S tG'';VG27;X2/sX, / VG5 
SCUTPUT 


f 


^FUNCTIONS 


VG26; //LOCAL LABEL?*/ 

Xi6an THEN 

IF X30 THEN VG28 / XG 
ELSE 

BEGIN VG?5 ; //SEARCH 
IF X16s0 THEN 
BEGIN VG23 ; //SEARCH GA 
IF Xl5 = a THEN VG22 //SEARCH AN'O OFF XA 


Y A 


FI 


FI 
* IVG34 


ELSE 

XG 

FI 


END 


ELSE 

XY 

FI 


• END 


FI 


ELSE 

XL 

FI ) ; 


VG27 SPRINT 


NUMBERS 
OFFSET X19 AND X3a« 


)/ 















SUBR(G4? J H LIST OF NAMES* X22JSTRUE/ 
wHRE X22 00 
bEG JN 

VG317 * S KIP LF,CR,TAB,SP# 

IF V3s& THEN X22:sFALSE in is list £N0# 

ELSE IF X3=l THEN 

VG14 ; ftPEAO NAME# 

CASE Y1 IN 

#Y# V G 2 91 , ' 

#L# VG30 , 

UGH VG?8 , 

***** . VG221, ^VECTOR LIST# 

#X# BEGIN VG22W #S£T XNAMEtf 

XI :sg; WHILE X3/ = ? DO VG3 
#R£AD UNT^L NUMERIC# 

WHILE X3 = 2 DO (X1:s(xi* 10) + (X? 
X5+JSX1 

END 

ESAC 
, ELSE VG3 
FI 
FI 

END 7 VG3 )t 


TABLE(G50: 2#XI,XF,BC?m, 

2_,%D,‘/O,b00P2, 

*,%C>*A, XS, XE,BR0(?3, 

5, %B,XE,XG f %I, % N,60004, 

. 2,%F,*1,60011 , 

2, %o,%o,epei2, 

4, %E#XS,XA,XC,e0013, 

• 3,XE/K.M,XD,B0014, 

6, XV,*/E,%C,XT,XO,%R,B00M, 

5, %A,2R,%f?,5£A,XY,8B022, 

6, XG,*L,XO,%B,XA,:a,B0041, 
& ? XL*XA f X8,XE,XL,B044?, 

6,%F,XO,XR,XM,3U,y.L,b0100, 

&,xl#xo;xc,xa,xl, 80i00 # 

3, %V,XE,XC,B020i, 

1, XV,B3400, 

4|%G,*0,XT,XC,80401, 

A,XE#XL*XIf%F,B10P0, 

4, XS, XU,%B,XR,B2fl*0, 

4,ZE,XX,XP,ZR,B2000 ) 
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Z3);VG3 )i 


G51J 












6.5 THE MIDIAL SYSTEM. 


As stated before, the Midial system consists out of two save systems, , 
a preprocessor system and a compiling and run time system. 

The preprocessor system starts wi£h the Command Decoder call: 
the input and output files'must be given to the system. 

Thereafter,, if there’is a program specified, the preprocessor translates 
the midial program to an intermediate minial program. 

This intermediate program file.can be named in the file command string, 
or is created by default as MIDIAL.MT on the SYS (-tern) device. 

After preprocessing, the midial system looks after the /P option switch. 

If it was specified, the system chains to a new midial preprocessor 
system, if it was not specified, the midial preprocessor system chains 
to a compiler and runtime system. ( MIDICM.SV ) 

From there a slightly modified Minial system is used. Only the possibility 
of interrupting by typing in the +C (control C ) character on the 
systems keyboard is new. 

After a normal return out of the program, the Mi diem system test the 
/M option switch . If it was specified the system returns to the 
Monitor, else it returns to the Midial preprocessor system. ( MIDIAL. SV ) 

It is possible to load a new preprocessor (minial binary) over an old 
Midial system by starting this system on the second start point, the load 
entry. (54000) 

After the loading, the system returns to the monitor. From there the new 
system can be saved with the SAVE command, (see also page 95 ) 

The MIDIAL.SV and MIDICM.SV can be saved under other file names, 
after modifying the chain name characters. 

They are packed in the locations 00060 till 00062g . 

On the next two pages flowcharts sre given of the MIDIAL and MIDICM systems. 
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mioial.sv 


Load entry. 


Run-tinio entry. 
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MIDICM.SV 























































THE INPUT AND OUTPUT CHANNELS 3 AND 4 . 


OUTPUT 


PACK THE CHARACTER IN THE OUTPUT BUFFER 

JV^UFFER FULL __— 

+ 


TRANSFER THE OUTPUT BUFFER TO THE 
OUTPUT DEVICE 


RESET THE OUTPUT BUFFER POINTERS 


TOTAL TRANSFERRED BLOCKS + := 1 


—-^_DEV£CE FULL 

RETURN TO THE ASSIGNATION 

ERROR 


ROUTINE 

ROUTINE 


INPUT 


7"^ —^JNPUT^FFER EMPTYJ___^ —^ 


INPUT . 

Read JJliecK 

ERROR 

ROUTINE 

RESET ToiNfCRS 

READ ONE CHARACTER FROM BUFFER 








































6.6 SYSTEM CREATION FROM BINARIES. 


For creating a new MIDIAL system, the programmer needs the binary 
file of the MIDIAL system (MIDISY.BN) , and the Minial binary of 
the preprocessor. The following command string must be typed in : 

.RU d<L\) ABSLDR.+ 

*dtv : MIDISY.BN$ 

•ST 4000 + 

*d<LV : PREMIN.MB < + 

.SAVE dev MIDDXL 0-177,4000-5577,10000-17577 ; 4200 =0 + 

For creating the MIDIAL compiler system (MIDICM) , the programmer 
needs the compiler system binary (MIDCSY.BN) and the compiler 
binary (MIDCCM.BN) . The command string is as following : 

•RU dev. ABSLDR. + 

*cfev : MIDCSY.BN + 

*dz\f : MIDCCM.BN $ 

.SAVE d<L\) MIDICM .0-177,4200-5577,10000-17177 ; 4200 =0 \ 

\ stands for the carriage-return character, 

$ for the altmode character. 

rfeu stands for the input or output device code. 

(see PDP-8 handbooks) 













6.7 THE FILE COMMAND STRING FOR THE MIDIALGOL SYSTEM. 

The midialgol system asks the user to identify which-files must 
he used by the preprocessor , the compiler and the load-run system. 

The user can also give some control information to the system 

to do only a part of the whole preprocess,compile,load and go system 

process. 

The command string must be typed in by the user after the * of the 
Command Decoder : 

* { { <dzv> :}{BINFILE{.ex/}}{, { <dzv> :} {0UTFILE{.ex2}} {, { <dzv>:} {PREPR0G {. ex3 >}' < -} 



{.} - means that this sequence can be omitted. 


and that in some cases this sequence will 
be replaced by a default sequence if it 
was omitted. 

«div>:} - <dzv> stands for the device code word. 

(e.g. DSK , P , R ) 

- if the device code is not specified, 

SYS is taken as the default device. 

.{BIWFILE{.exJ}} - BIMFILE.EX is the file in which the 

compilation result is set.(binary file) 
This file is also the file that will be 
loaded by the loader. 
























- If the BIHFILE is not specified by the 

user , the default name of the file is : 

MIDIAL.MB . 

{.ex7} 

» - If the extension is not specified , it 

{OUTFJLE{.ex2} > 

will have the default value of .MB . 

- OUTFJLE.EX is the file name of the 

output file at run time on which the 

output data- is written by the'P3 and*P4 

instructions of Midialgol. 

- If the file name is not specified, then 

the default file MIDIAL.MO is generated 

if there has been output on'P3 or'P4 . 

{ . ex2} 

- If the extension is not specified by 

the user it gets the value of .MO . 

{PREPR0G{,ex3}} 

- PREPROG.EX is the output file of the 

preprocessor. This file becomes the input 

file for the compiler. 

On this place old Minialgol program files 

can be set for compiling. 

- If the file name is not specified and there 

is a PROGRAM-file present, the file gets 

the default name of MIDIAL.MT . 

- If there is no PROGRAM-file specified, and 

the PREPROG-file is specified then the 

PREPROG-file is compiled and eventually 

runned . 

{.ex3} 

“ The default extension for this file is .MT. 










{<} - is the delimeter between the output- and'the 

input files. If there are no output files to 
specify for running a program, the user can 
omit this sign. 

Instead of the < symbol the symbol can be 

. 

used. 

{PROGRAM {.ex4}} - PROGRAM.EX is'the name of the file in which 

* 

the Midialgol program is put away. 


{MUE{.zx4}} - MILE. EX is the file name of the file from 

which the data is obtained by the *R3 and 'r 4 
instructions in Midialgol. 

- If the' device code and the filename are not 
specified, the system returns after an 'R3 
or 'r 4 instruction to the Monitor,with an 

. . error printout.("I/O ERR AT nnnn") 

. \ 

{•6x4} - The default value for the extension of the 

input files is .MI .(Midial Input) 

- If the user does not specify an input file 
extension, the default value (.Ml) is added to 

.... s 

the-file name. If this file is not found on 
the specified (or default) device, a search 
for a file without an extension is made. 

{/U - /L is the switch by which the user can obtain 

the listing at compile time of the 
(preprocessed) program* 












{/M> 


{/N} 

I o^ly compilation 

{/?} 

I °nly preprocess 


is specified in the case that the control 
of the system must return, after completion 
to the Monitor. . 

In the case that the file MIDIAL.SV is 
not on the SYS (-tern) device, this switch 
option MUST be specified. 

(Else you get an Monitor error) 

✓ 

If this swich is not specified, the 
control returns to a fresh Midialgol 
system. This is done by chaining to the 
MIDIAL.SV file from the MIDICM.SV file. 

The system returns with the of the 
Command Decoder. 


This is the No load switch, to do only 
(a) compilation(s). 

This option can be used independently of 
the /M option. 

This switch, is. used for doing only the 
Preprocess fase. After completion the 
control of the system returns to the 
Command Decoder.(The /M switch does not 
work here.) 














only load-and go 


{<devi>:} 


If there are no specifications 
for files on the places of the 
program and preprocessed file, 
the file on the BLVFILE-place 
(or its default value) is loaded 
and runned. ■ 

✓ 

For c/eut apply normally the rules 
for c/ev , only in the case that 
there is no program specified 
the user MUST specify here a 
device code. 


Note: In the case that an input- or output- device is a non-directory 

device (e.g. P or R) the file name can he omitted. 

For output files the default name is generated, hut this name is of 
no significance. 












* 
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COMMAhD S'L’RI’IO ACTI0?f5 AND DEFAULT FILE G^rj^A'TIOir 


/p 

Prog 

Preprog 

Binary 

/N 

Output 

prcproc 

in out 

compiler 

in out 

load 

run 

out 







f 

T>$£pnoc 

'F*m 

Lin Hiy 

kwiZy 

OUTPUT 1 





• 






B 

B 




- 


1 


‘ 

* 


B 

P 




1 







P 

B 




1 


> 1 





F 

P 



1 • 

* 





P 

D 

B 

B 



1 

. 


1 

—- 


P 

D 

B 

P 

- 


1 


1 

X 



P 

B 





1 

1 





P 

P 

P 

B 



1 

1 


1 



F 

P 

P 

P 



1 

1 

1 

X 



P 

P 




1 





p 

B 

B 

D 

B 

B 


1 ' 




1 

p 

D 

D 

D 

B 

P 


1 



1 

X 

p 

D 

D 

B 




1 


1 



p 

D 

3) 

P 

P 

B 


1 


1 


1 

p 

D 

D 

P 

F 

P 


1 


1 

1 


p 

3) 

D 

P 




1 

1 




p 

P 

P 

B 

B 

B 


1 

1 



■ 1 

p 

P 

P 

B 

B 

P 


1 

1 


1 

X 

p 

P 

F 

B 




1 

1 

1 



p 

P 

P 

P 

P 

B 


1 

1 

1 


1 

p 

P 

P 

F' 

P 

P 


1 

1 

1 

1 

X 

p 

P 

F 

P 



1 

1 


X 

X 

X 

p 

B 





1 

1 

1 

X 

X 

X 

p 

P 







means not specified. 

1 

means that the file is specified. 

X 

means that specifying a file name here 


has no meaning. 

F- 

;he specified file is taken for the l/o. 

B~ 

she default file is taken for the l/o. 
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6.8 THE BINARY LOADER. 


The loader of the Midialgol system is swapped by the control system 
with the Monitor page of field 1 . 

The loader is present in the monitor page at the moment that a program 
is loaded, and at the time when a program is running. 

The loader can be called out of a program as a subroutine. 

There are three instructions in the loader inserted by which the control 
system is activated to change the control mode from load to execute, and 
opening the program output file etcetera . 

These three instructions must be modified with no-operation instructions 
before a call is made to the loader. 

These modifications are: C B 7676:=C B 7677 :=C B 7700 := £ 7000 ; . 

The loader call is as following: 

$ VEC( £ 7600 ,{{ Start address of the loader H 
4 ,H Input device channel 4 H ‘ 

A BUFFER {{ address of the program buffer 3 ) ; 

Initially"BUFFER must have the value of the number of core locations 
which are available for storing a program. The loader modifies before 
returning BUFFER with the exact program length, so the program is loaded as 
a vector. When the buffer length is insufficient, the loader returns with 
an error. 

The compiler output code or binary code is described on page 

The loader.has a possibility to call itselfs recursively, but the compiler 

can not generate code for this option. 

On the next pages the loader is described in Midialgol . 

Note: £ 4400 is a JMS Z instruction, which is an indirect subroutine call 
to the subroutine entry table in page_ 0 . 

In the program example of an executive, the programmed loader call is used. 









i 



» 





The LOADER IN MIDIALGOL 


SUBR ( FORMAL DEVICE,APVEC « program buffer begin address f{ ; 

PP:=PL:=BASE:=APVEC } LABEL REC ; MAX:—C(APVEC)-1JC(APVEC) 

SUBR (REC; FORMAL DEV , APV ; > 

LOCAL CHECK , SAVE , SV , TEMP , END ; 

' LABEL ABSREL , LOV/HIGH , READ J 

EXPR(READ: CHECK:=(IN:= R DEV) ); 

EXPR (LOV/HIGH: (V READ <-2)+(V READ 4) fj two frames# ) 

EXPR (ABSREL: SV:=(IN+IF SV—1 THEN 0 ELSE BASE Fl) J 

TEMP:» V LOWHIGH j backwards data settings « 

WHILE TEMP/-0 DO TEMP:= C (TEMP+BASE) | 
C(TEMP+BASE):=SV 

OD )? 

WHILE V READ «= 0 DO SKIP OP ; f| skip leading zero's $ 

IF Ill/«B 125 THEN HALT FI ; 

CHECK:-0 ; END:= FALSE ; 

WHILE NOT END DO 

IF I1I&1 = 1 THEN IF (MAX+:=1 )=0 THEN HALT FI | 

■ ^subroutine# C(PP+:=l):=B 4400 + (IN -l)j C PL+:=1 

ELIF ((IN <-r:1) & 1)=0 THEN IF (MAX+: = l)=0 THEN HALT FI 

f}12 bits word# H: = IN f C (PP+: = 1): = (H*$-l)+(V READ <3— 4) J 

C PL+:«1 v 

ELSE'CASE (INC-1)+1 IN 

#program end# IF (CHECK+V LOV/HIGH )=0 THE?! END: = TRUE ELSE 

HALT FI , 

' ^{recursive call# ARG:=V LOVJHIGH; SV:=~ 1 ; IN:=PP+1 ; 

V ABSREL ; SAVE:=BASE; BASE:=PP ; 
REC(ARG,SV); BASE:=3AVE , 







































4 





fjabsolu-te« ' SV:=-*1j H*I:=V LOWHIGH ; 

fjrelativef} SV:=0 ; IH:*=V LOWHIGH } 

ESAC 
FI 

® )f . 

REC( DEVICE f APVEC ') ); 


V AESREL 

V AB3REL 







X 
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6.9 THE BOOTSTRAP SYSTEM. 


The bootstrap preprocessor is created out of a minimum preliminary 
version of the current preprocessor written in Minial. 

The bootstrap preprocessor system has more core locations free for 
the identifier list of its preprocessor. 

With this preprocessor it is possible to translate a preprocessor 
written in Midial to Minial (this takes about 5 minutes). 

Thereafter it can be compiled with the MIDICM compiler system , 

and loaded as described in the chapter about the preprocessor (page 95 ), 

and saved as a new Midial system. 



On the next pages the listing of the preprocessor written in 
Midial and the listing of the bootstrap preprocessor are inserted. 

Behind these listings, the listing of the bootstrapped Midial preprocessor 
is added. 
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»BEGIN 


#MIDlALGOL TO KINIALGOL PREPROCESSOR, 
V.RITTFN IN NIDI ALGOL 


DATE 75/01/17 
bV H.LUlIJf 

T.h, OELFT , THE NETHERLANDS. 


list of variables : 


INPUTCHAR 

CLASS 

GCNT 

'XCnT 

lcnt 

ycnt 

ELIFCNT 

USTBEG 

LISTEND 

SET0NL5T 

LOKtlPLST 

SCOPE 

pahlev 

levclass 

CHARI? 

CHAR34 

CHAR56 

IDENTNR 

FLAGV 

FLGHLP 

flagcohha 

FLGFOUND 

HELP1 

HELPS 

TABLENR 

elehnr 
CHARI 
C H A R 2 
CHARS 
CHAR4 

chars 

chars 


-LAST INPUTTED CHARACTER 
-INPUT CHARACTER CLASS 
-G-COUNT 
-X-COUNT 

-L-COUNT w' 

-Y-CCUNT 

-elif-count 

-NAME list BEGIN pointer 
-mane LIST end pointer 

-CURRENT POINTER FOR SET on LIST OPERATIONS 

-NAME LIST CURRENT POINTER FpR LOOKUP OPERATIONS 

-CURRENT LEVEL 

-PARAMETER LEVEL 

-NAME BUFFER 1 LEVEL AND CLASS 

-FIRST TWO CHARACTERS OF NAME 

-CHARACTERS 3 AN'O 4 

-CHARACTERS .5 AND 6 

-CHAIN NUMBER OF NAME < 

-FLAG V DETECTED. 

-FLAG^FOR PREVENTING THE I) STRUCTURE:CONVERT TO ;S'<IP) 
-FLAG FOUND In TABLE 
-COMMON VARIABLE 
-COMMON VARIABLE 

-M101AL SPECIAL WORO CHAIN NUMBER 

-NumBFR OF ELEMENTS 

-CHARACTER 1 

-CHARACTER 2 

-CHARACTER 3 

-CHARACTER 4 

-CHARACTER 5 

-CHARACTER 6 


U PROGRAM ORIVEP « 


•BEGIN ^INITIALISE** 

IVECTOR LEVCLASS,CHARI?,CHAP34,CHARS6,1DENTNR } 

• VECTOR ELEMNP,CHARl,CHAR?,CHAR3,CHAR4,CHAR5,CHAR6 } 

• GLOBAL TA8BEG , TABEND 1 

' DCL ( ’ A • W K - • A 
ip 3*s"(DCLC1O0)?" * 


FLGFOUND:aJ sELIFCNT*»YCNT l«SCOPE!PARIEV*»1I 
LISTEN'D: 5 (L ISTBEG: sLCKUPLST :. s SETON'LST : = ’ Ay 33 

L171 #$ET after X LIST# 

•C LOKUPLSTJS-I ; ^CREATE 1 LIST CELL « 


)+ 5 J 
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»V RESETFLG J #RFSFT FLAGS# 

tCNf«aGCMTi*XCNTI«2P ? #PPE$ET X#L AND G COUNT# 
•V INCNAR/ #READ AND CLASSIFY# 


#TEXT SCREENING ON THE PAIN level# 


‘WHILE CLASS/s3 ‘DO 

* IF CL ASS a j ‘THEN * V NAME 'uIDENTIFTER/LABEL# 

‘FLIF CLASSs4 'then IV MIDIALSYM «MJOIAL SYMBOL# 

•ELIF CLASS S 7 'T.HfcN »V COMMENT #COf 4 MENT DETECTED# 

‘ELIF CLASS*14 'THEN 'V SPLNTA.B #SP,LN,LF# 

‘ELSE ‘IF CLASSsS 'THEN 'V PIJSHSCOPE 
POPFN PARENTHESIS DETECTED# ✓ 

'ELIF CLASSs6 'THEN 'V POPSCOPE 

#CLOSING PARENTHESIS DETECTED# 

'FLIP CLASSsB 'THEN FlDCOMma:='TRUE #; DETECTED # 

‘ELIF CL ASS b 1 ? 'THEN 'V RESETFLG /'V NEXTCHR #% DETFCTEO 
RESET FLGCOMMA; OUT V, AND FOLLOWING CHAR , # 

'ELIF CLASS»13 'THEN »V RESETFLG;'V NEXTCHR; 'WHILE CLA$S/=l3 

'DO «V NEXTCHR '00 # S KIP » » STRING# 

•ELSE »V REvSETFLG #0UTPUT CHARACTER# 

' FI ; »V NEXTCHR 
‘FI 
•OD ; 


»v commaskip; #te$t ;# 

#OI'TPUT MISSING CLOSING PARENTHESIS# 

'IF SCOPE>0 'THEN 'P J **” 0OECS (SCOPE) t " ) MISSINGO" j 
‘WHILE $COPF>fl 'DO 

‘V POPSCOPE ; # DELETE LEVEL# 

'V PhINTCS #PRINT# 

»00 

' FI | 

•P 3*sfVEC(X) ,%1, ‘LN#»LN,'B0232) #OuTPUT THE ) OF THE (DCL,. ♦ .# 


lEXPR (MIDIALSYM: #MIDIAL TO MINIAL - STANDARO wOROS # 


#REAO MIOIAL SYMBOL STRING AND SEARCH IN TABLE# 


•V INCHAR- ; #R6AD SYMBOL# 

‘V BUILONAH ; #REAO SYMBOL STRING# 

HELPlS bTABQEG ; 'V FLG5ET #FL6hLP J = 'TRUE# / 
'WHILE (HELP1<=TABENU)SFLGHLP 'DO 


T ABLENR J = (' 


'DO ; 


'THEN 

'ELSE 

>FI 


IF (FFLF1 'HO * A ELFMNR) #IN 

&('A FLEMNR »HD HFLPj) 

'V FLGRESET #FLGHLP!s'FAL$E#; 
HELPl+Js'C HELP 1+2 ; ? 

) 


TABLE ? # 

»C CHELPl+'C HELP 1 + 1) 


'IF (TABLENR&' BO01 (?) = » BP-01 0 ‘THEN 


#FI on FSAC E^O# 











Bf GIN 


#IF pREVinuSs; THEN OUTPUT 
•V POPSCGPE ; ttPOP LEVEL AND DELETED 
•IF TABLi:NF«=»n0oi2 * THEN tfoDft »V PRIWTCS 
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?SK1P * 


PRINTWD 

^OUTPUT 


SYMBOL# 


’ELSE 'V PR I NTWO WOUTPOT STANDARD WORD# 

»£N0 

1 ELSE ' • 

'BEGIN 

•V RESETFLG ; PRESET FLGCOMMAtt 
•IF TABLENRsa 'THEN ONDT FOUNDS »V 

* 

'ELIF (TABLENRRIP777D)=0 ITHEN 
•BEGIN 

•V PUSH5CPPE ; ftPUSH LEVELS 

•v PRiNTwn ,* ^output symbol# 

•IF TAflLENpB IR0002 ITHEN #DO#"'ip 3;=%( i FI 

• END 

'FLIP TABI.ENRb I P040 1 ITHEN #GOTD# FL AGV t s » TRUE / » V PR INTWO 
•FLIP TABLENRs IP2W0D -ITHEN »V PR INTk0JCHAR34;=PARLEV/ 

charipjsycnt; #surr or expr# 

ELEMNRlBiPbPOp+tpARLEVJsSCOPE+n/iV ADOTOLST; 

Y C N T J s a 


tiVECTOR LIST# 
# ARRAY LIST# 
^/GLOBAL LIST# 
«LABEL LIST* 


IDLIST (4) 
IDLIST(S) 
IDLIST (3) 
IDLIST (2) 


'FLIP TABLENRs tp002\ »THEN 
•FLIP TABLENRa•R0022 » THEN 
•FLIP TADlENRoIP0P41 ITHEN 
'ELIF TAPLENRsIBP042 'THEN 

’ELIF TApLENRs’H10P0 'THEN REllF# ELIFCNT+: = U 
•P 3 *b»flsE IF" 

•ELIF TA-6LtNR='P010P * THEN 

RFORHAL OR LOCAL LIST# " IDLIST f 15; 

ip 3* = " DCL C " , • DECS ( YCNT ) 

•ELSE • IF TAeLENRa i 802R 1 'THEN #V£C# 

•V SUBCMARj #PUSM AND SPECIALS 

IN F U T C H A R l s % ( 

•ELIF TAPLENRs«B04R0 ITHEN #V# FLAGVis•TRUE 
|pi f INPUTCHARjsZV 

•V NEXTCHR 


'El 
i£NO 
• FI 




* EXPR f PR INTV'O ! »P3 *b«a ELEPNR HOUTPUT STANDARD WORD# )j 




. 
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'EXPRflNCHAR* CL ASS J s( ' 1F ((IKPUTCHARJg'R 3) >s%A)j(iNPUTCHAR<3y7T 
'THEN SALPHAPETTCAL INPUTS 1 

•ELIF (INFUTCHAR > = X01 & (INPUTCHAR<a%9) 'THEN ^NUMERICS 2 
'ELIF INPUTCHARs»80932 'THEN 3 
ftCGNTPCL Z « 

•FLXF IMPUirhARsXi »T HE N SMIDIAL SYMBOL* 4 

'ELIF INPUT CMARs%( 'THEN SOPfiNING PARENTHESJ5S 5 
'FLIP iNPUTCHARsy.) * THEN SCLOSIN’G PARENTHESIS* 6 
•FLIP INPUTCHAfts%ti ITHEN SCOMMENT OFTFCTEOs 7 

•ELIF lNPUTCHARs%; 'THEN S£NQ OF LIST OR STATEMENTS 8 
'ELIF INPUTCHARs*/? 'THEN «LARFL DECLARED* 10 
'FLIP (INPUTCHARsXs) J (INPUTCHARry,o) ' THEN U ASS IGN* H 
'FLIP INPUTCHARs%x 'THEN SCNARACTER VALUES 12 
»FLIF INPUTCHARsy." 'THEN * « " STRINGS 13 

'ELIF (INPUTCHApsSP) { (INPUTCH-»Rb 0) 1 (INPUTCHARs t p 2 J IT | 
(INPUTCHARs'B?> 1?) 1 (INPUTCHARs'02OP) J (INPUTCHARs'LN) 

1 (IHPUTCHAR*'a?l4) 

'THEN SSPACE,TAB,LINE FEEO,CARR.RE TURN,CNTRL LS 14 
'ELSE 23 
•FI )); 

'EXPR(PRINT: SPRINT ONE CHARACTERS »P 3 1 = INPUTCHAR) ; 

'ExpRCnFXTCHr: SPRINT,read,CLASSIFY* 'V PRINT;'V.INCHAR )1 

'EXPR(PUSH$COPE* SPUSH LFVFL« LEVCLA$SI*'B500P+C$COPE+jBn ; 

CHARI?; SELIFCN T ! ■ «STGRE ELIFCOlJNTS »V RFSFTFLG f 
'V AP0T0L5T; ELIFCNT;s 0 )/ 


'EXPRfPOPSCOPE: SPOP LEVELS 

'V COMNASKJP t ii TEST COMMAFLAGS 

SDELETE FROM LISTS LOKUPLSTt*LXSTBEG; 

'WHILE ELTFCNT>0 'DO E'L IFCNT** 5 s 1 | * V PRINTCS » CO 7 
'WHILE LOKLPLST<lISTEND too 

'IF ((HELPIJS'C LONUPLST)s»R6000+SCOPE)1 
(HELP1 b' 8H0^0+SCOPE+1) 'THEN 
»C LOKUPLST 1 = ~ WYCNTss * C CL OK UPLST+U ; 
PARLEVjs'C(L0KUPLST+2) SRFSTORE S 
•ELIF HELPU »B0777sSCOPE 'THEN 
HELPI-IbSCGPEJ 

'IF HELP 1 s 'B40P0 'THEN INPUTCHAR:s*) 

'ELIF HELPl=»BS0O0 'THEN EL1FCNT:= 

'C(L0KUPLST+1) 

' F17 'C LOKOPLST:s*l 

' f 1 ; 

LOKUPLST+;=5 snextchr names 

'001 

.SCOPEr.:rU 

SFTONLSTJ=LOKUPLST:sLISTBEG SRESET list POINTERSS )i 

'EXPRCPPINTcS! 'P 3J=X) SCL'TPUT A ) SYMBOLS) t 


»expr(adotolst: 


SSET NAME CN LISTS IV FLOSET SFLGHLP:«*TRUfS t 
'WHILE FLGHLP '00 

»IF SET0NLST<LI5TEN0 'THEN 

»TF »C SETOMLSTb- 1 'THEN »V NAMTOLST 
'ELSE SETONLST+lsS 
« FI 


'ELSE LISTENO+5 s5l»V NAMTOLST SCOPY 
'FI 


AFTER LISTS 


'OD )1 



























< EXPR(NAmTOLST ; 


A'COPV N A H £ FRGH RUFFFR TO LIST CELL# 
hKLP3ss«A LFVCLASS-1;HELPI :sSETONLST.i; 

’WHILE" (hElP 3 +:s})<tA SFT 0 NL$T *00 

»C (HELP 1 + : = i)? = »C HFLP3 *00 ) 

’V FLGRESEI #FLGHLP:=»FALSE#)/ 
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• £XPR (COMMENT ! #SKIP COHHEM# *V NEXTCHR ;'WHILE GLASS/ = 7 
’00 ’V NEXT CHR *oo ; * v NEXTCHR )/ 

*ExpR fBUI lDNAM #nAM£ DETECTED * SETUP BUFFER# 

HELP1 :=LEVCI. ASS:=CHAR12:sCHAR34:sCHAR56:sI0ENTNR|s 

!b E t!!' l Ei^ H ^ l:3CHAH?IsCHAW3!sCHAR4j5 C H A«5« S CHARe:=0 ; 

’V FLGSET #H,GHLP: a>» TRUE# } * 

’WHILE (FLChLPR(HELPI<fi)) »po 

. ’IF tCLASS=l)l(CLASSsp) ITHEN 

• BEGIN *C (* A CHARl+NFLP1): = INPUTCHAR ; 
lNPUTCHAR«:s »B0?57;*8UILO NAME# 

•C ( ’ A CHAR 1 2+ (HELP1/2) ) + : a f ».IF (HELPI - ( (HEl PI/?) *2) ) s0 
’THFN INPUTCHAR06 ‘ELSE INPUTCHAR *FI); 

’V INCHAR;aREAD AND CLASSIFY# 

FLEFNR-J s(HELPl + ! = i) 

• FNO 

’ELSE IV PL G RE SET #FI.GHLP * = » FALSE# 

, ’FI * 00/ 

’WHILE FLGPLPX((CLASSsi)j(CIASSS2)) *00 

’V INCHAR WNAME LONGER THAN 6 CHAR'S* *00 )/ 
' EXPR(FLGSET; FLGHLPJs•TRUE); 


•EXPRCFLGRESET; FLGHLP : « ’ FALSF.) ? 


'EXPRfSETUPL♦ #L LABEL* LEVCLASSJsPARLEV ); 

•EXPR(SETUPYS #Y IDENTIFIER# LEVCLASS:*PARLEV+»B1000 ); 

' tXPR (SUBchAR! RSPfCJAIS at LEVEL-POP THEN ) TO 3* 

*V PUSHSCOPF JLEVCLASS;a•04^00+SCOPEJ»V ADDTOIST ); 

•EXPR(SRCHLSTi aLQOKUP IN table# 

L0KUP!.ST;sLJSTBEG-5ll0ENTNR;s(a;FLGF0UND; = 'TRUE; 

'WHILE (FlGF0llND&(CLGKUPL$T+lr5)<UST£N0)) ’00 
HELPI:s-1;'V FLGSET #FLGHLP ; =* • TRUE# ; 

'WHILE (FLGHl.Pft((hFLPl<*l«l)<4)) *00 
• IF 'CCA LEVCLASS + HELPH/='CfLOKUPLST + HELPn 'THEN 
•V FLGHESET #FLGHLP5='FALSE# »FI 

'00 1 

'IF FLGHLP 'THEN F LGFCIJN0 : a ' F ALSE ; IOENTNR; = 'C (LOKUPLST+4) 
’FI #NOT found; loop# 1 

• 00 ); 


'EXPRCXOEFSRCH; ^SEARCH X-NAHE# LEVCLASS; = '830I?0I *v srcmi st; 

•IF IOENTnrs^ >THFN «a new nane a 

'V ( »EX PR (XDEFINE: LFVCLASS;s'P3e!05? ; IDENTNP;s(XCNT+: = I) ; 

'V A0DT0LST #400 TO LIST# I) 

'FI; XX #OUTPL'T X# ); 

' EXPR(GSRCH ; #5£ ARCH G# 

LEVCLASS;=*B2P00T#SETUP G# »V SRCHLST ' #AND SEARCH# ); 


'EXPR (ALLSCOPFS; #vSearcH LOOP UNTIL level p# 

LEVCLASS+;si; IDENTNR;r0 ; 

'WHILE (((LFVCLASS.-;«l)S,iB0777)/a0) R (IDENTNRS0) >00 















•V SKCHLST 


GSEARCHh »0D 
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•EXPftfYSR ch: #S£aRCH y identifier# 


); 

'V SETUPY;«SETUP« *V AllSCOPFS 


t EXPR (LSRCH t ^SEARCH L^LABEL# 'V sSETUPLI #SETUP L# »V ALLSCOPES 

*EXPRfGDEFSRCH: aSFARCH AND CEFIWE 6*# 'V GSRCH / ^SEARCH G# 

•IF IPENTNR=0 ’THEN 1DENTNRja(GCNT+:aJ);»v ADDTOLST »FI ) 


#$EaF 


)? 


•EXPR(YDEFSPCH: hSFAPCH AND DEFINE y# *V YSRCH J ' 

• IF IDEN'TNRstf • THEN 

»V ' EXPR (YHEFJ >V SETUPY f IDENTNR:s(YCNT+:aJ) ; i V AOOTOUST ) 
'PI ); \ 


* EXPR (UOEF IF'E-t PPEFl^'E L-LABEl,# 

•V SETUPL ; IDENTKRjsaCNT+Jsi) ; »V AOOTOUST #TO LIST*i 1; 


• EXPRf'SPUHTAB: feSKIP AMD OUTPUT CR, UF, TAB, SPH 

'WHILE C L A S S = J 4 • 00 »V NEXTCHR »0Q ); 

• EXPRfRESETFLGJ PRESET FLGCQMPA FLAG# FLGCOMMA l sFLAGV! = 'FALSE )j 










* 
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'EXPR (IDMRCUT j "OUTPUT ICENTNP" »P 3*« (»DECS (IOENTNR) ) . '< •• ); 

'EXPRCCOMMASKIP? "TEST }) COMBINATION;OUTPUT "SKIP" IF SO" 

«IF HGCCMMA 'THEN ip 3* S "SKIP «';i V RESETFLG "RESET" if 


•IxPRfNAMFj "IDENTIFIER DETECTED" »V RulLONAM;"RtAO NAME" 

•IF CI. A S S s 7 "COMMENT" 'THEN 'V COMMENT 'FIT 

v SPLNTA8 ; ."SKIP SPACES, line feeds ETC" 

'IF CLASSM0 'THEN a; DETECTED" 

»BEGIN 


•P 3: = 


• ENO 
1 ELSE 


»v INCHAR? "READ NEXTCHRtt 
» IF CLASSsn i#{ s" l THEN ‘ 

’BEGIN 

'V YSRCH ; "SEARCH Y" ^ 

'IF IOENTNPsM * THEN ly XOEFSRCH "X IDENTIFIER" 
'ELSE , XY"Y IDENTIFIER" 

• FI 

'END 

'ELSE "LABEL" 

«V L3RCM; "SEARCH L" 

'IF IOENTNR = 0 ithen "G" *v GDEFSRCH; xr 

•ELSE XL 
'FI 
'FI ; 

'V IDNROIT/ "OUTPUT CHAIN NUMBER" »P 3;=%i 


'IF CLASS=5 «%(" 'THEN "PROCEDURE NAME" 
'BEGIN 

'V GCEFSRCH? "SEARCH AND DEFINE G" 

»V SUBCHAR; "SUB CHAR, TO LIST" 

•P 3 * a"S {G " ? • V IONROUT;INPUTCHAR;sX#I*V 
"OUTPUT 5 tG , , , , , " 

* End 

'ELSE 

' P 3 * — 'BEGIN 


NEXTCHr 


'V LSRCh; "LOCAL LABEL?" 


•IF 

IDENTNRsO 

•THEN 


'IF FLAGV 
'ELSE 

'THEN 'V GDEFSRCH? 


'BEGIN 

»V YSRCH ; "SFARCH 


'IF IOENTwRsk ITHEN 


•BEGIN 

'V GSRCH ;"SEARCH 


'IF IDENTNRs 0 'THEN 'V 


•ELSE 

'FI 

•ENO 

XG 


•ELSE 
• FI 
•END 
»FI 

%Y 

•ELSE 

'FI 

XL 

'END 

; 


•V IDNRGUT 

"PRINT NUMBER" 


%G "FUNCTION" 
Y" 

G-LAREL" 

XDEFSPCH 


' FI 


' FI 

; 'V RESE7FLG 


'SUBR(IDLTST ? "LIST OF NAMES" 
•WHILE TAPLENR 'DO 


"RESET FLGCOMMA AND FLAGV" )? 
'FORMAL SWITCH 1 TABLFNR : siTRUE? 












■ 







*v splntab; vskip lf,cr,tab,sp,cntrl l#^ 

’JF CI. A S S * 8 'THEN TA6LENRJ*«FALSE #; IS LIST END# 

•ELIF CLASS*1 'THEN 
'BEGIN 

»V BUILDMM ; WREAO NAME# 

'CASE SWITCH * IN 
'V YDEF , 

»V LOEFINE , 

'V GDEFSRCH , 

'V XOEFINE , ^VECTOR LIST# 

'BEGIN 'V XOEFINE; HELP 1 J *0 ,*#ARRAY # 

•WHILE CLASS/r2 'DO 'V INCHAR »CQ» 

wreao until a numerical character# 

'WHILE CLASS*2 'DO 
HELP1 :* fHFLPl*lP) + (INPUTCMAR«X0) / 
'V INCHAR 

'DO i XCNT+lsHELPl 

»EN0 


' ELSE «V INCHAR 

'FI 

»O0 J »V INCHAR 

' T ARLE (TA8SEG!' 2, XI , XF, « 80001, 

2,xn,xo, »pi?002, 

4, XC,XA,XS,XE, 'R0J103, 

5, XB,XE,XG,XI,%N,>60004, 

2,%F,XI,'R 0 011, 

2, % 0,X 0,'80012, 

4, %E,XS,XA,XC,'80013, 

3, %E,XN,X0,'80014, 

6 , XV, XE,XC, XT,XO,XR, '80021, 

5, %A,Xft,XR,XA # XY,'60022, 

6 , %G,XL,Xr,XB,XA/XL,'80041, 

5, XL,XA,XB,XE,XL,'80042, 

6, XF,X0,XR,XM,XA,XL,'80100, 
5,XL,XO,XC,XA,XL, '60100, 

3, %V,XE,XC,'80201, 

1,XV,'90400, 

4, XE,XL,XI,XF,'81000 , 

4,%$,XU,X8,XR f '62000, 

T ABEND J 4,%F.,XX,XP,XR,'82000 ) 


H Y* 
ttlti 

#X# 

#X# 


•ESAC 

'END 


'END; 


















BEGIN 


#MIDIAL to MIMIAI. PREPROCESSOR,VERSION FOOTSTRAP 
DATE 74/lP/iO 
BY H.LUIIJF 
7.H. DELFT 


LIST OF VARIABLES i 


XI 

X2 

X3 


X 8 

X 9 

XI 0 
Xil 
X 1 2 
X 1 3 
X14 
X I 5 
X16 
X 1 7 

X 1 8 

XI 9 
X20 
X2i 
X22 
X23 
X24 
X25 
XP6 
X?7 
X ?8 
X 2 9 
X30 


-COMMON VARIABLE 

-LAST INPUT CHARACTER 

-INPUT CHARACTER CLASS . 

-G-COUNT ' 

-X-COUNT 

-Y-COUNT 

-NAME LTST BEGIN POINTER 
-NAME LIST END POINTER 

-NAME LIST CURRENT POINTER FOR LOOKUP OPERATIONS 
-CURRENT LEVEL 

-NAME BUFFER : LEVEL ANO CLASS 
-FIRST TWO CHARACTERS OF NAME 
-CHARACTERS 3 ANO 4 
-CHARACTERS 5 AND 6 
-CHAUj HUMBER of name 

-current pointer for set on list operations 

-COMMON VARIABLE 

-FLAG FOR PREVENTING THE /) STRUCTUREJCONVERT TO /SKIP) 
-FLAG FOUND IN TABLE 
-COMMON VARIABLE 

- M IDIAt SPECIAL WORO chain number 

-number of ELEMENTS 

-CHARACTER 1 

-CHARACTER 2 

-CHARACTER 3 

-CHARACTER A 

-CHARACTER 5 

-CHARACTER fi 

-FLAG V DETECTED. 

-ELIF COUNTER 


# PROGRAM DRIVER 8 

BEGIN ^INITIALISE# 

x? UK1 1 :=X3t i!0/ 

XB:sXi0S=XI7JrAX32 / #SET AFTER X-LIST# 
X20 J sFALSE ; VG34 / //RESET FLAGS# 


# 


X4UX5JR0 ? «PRESET X AND G COUNT# 

#FOR THIS BOOTSTAP VERSION NOT 20 BUT 0 # 


X9:=Xlf* + b ; CVlOJa-1 ; #C»EATE 1 CELL# 
VG3; #pead and CLASSIFY# 

DCL(AW0-AXfc5 + ei?USfi) / 

P3UXf / 

























»TEXT SCREENING ON THE HIGHEST LEVEL# 
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WHILE X3/ S 3 Do 
BEGIN 

IF X3M? THEN 
IF X3 a l THEN 

if X3s4 then 

IF X3=5 THEN 
IF V3=6 THEN 

IF Y3=7 THEN 
IF X3=8 THEN 
IF X3*l3 THEN 

IF X3 a 1 4 THEN 
(VG34; 

END f 

VG35; #TEST 


(VG34; 

RESF 
VG4B U 
VG1 #M 
BEGIN 
(VG35 1 
TEST 
VG 1 i * 
( x i q : s 
( VG34 
ASM 
VG3 1 
VG5) * 

7# 


VG5 7 VG5) #% OFTECTED 
T X19 j OUT X AND FOLLOWING CHAP#/ ElSF 
IDEN'TIFIEP/LABEL# ELSE 
10 IAL SYMBOL# ELSE 

VG34 7 VG67 VG5 END #QP£N PARENTHESIS# ELSE 
VG7 7 VG5) ^CLOSING PARENTHESIS DETECTED, 
PREVIOUS CHARs; ,pnp , READ # ELSE 
COMMENT DETECTED# ELSE 
TRUE7VG5) #7 DETECTED# ELSE 
;VG57 WHILE X3/=J3 DO VG57 VG 5 ) 

P " " STRING# ELSE 

#sp,lm,lf# else " 

OUTPUT CHARACTER# FI FI FI FI FI FI FI FI FI 


end 

#--• 


^OUTPUT MISSING CLOSING PARENTHESIS# 

IF XJJ>0 THEN Pi:a%W / 

while xii>e DO 

BEGIN X?;s%)/ VG7 7#POP AND DELETE LEVEL# 

VG4 #PRINT# 

END 

fi ; 

f P3*MX)» X ; , LN # LN , 88232] ^ #OUTPUT THE ) OF THE (DCL. , . 


EXPR (G i« //MIDIAL TO MINIAL STANDARD WORDS CONVERTING# 


#PEAD MIDIAL SYMBOL STRING AND SEARCH IN TABLE# 
X237SX24JsX25lsX2*73X27:=y28:=X?9:sg 7 
VG3 7 #READ SYMBOL# 

VG 1 4 ; #REAO SYMBOL STRING# 

X1:sG50 7 XI8 I"TRUE 7 
WHILE ((Xl<sG5I)&Xi8) DO 
BEGIN 

X22! s C IF (Xi HD A X23) THEN #IN TABLE# 

BEGIN X18:=FALSE 7 CfXl+CXl+i) END 
ELSE BEGIN Xl+jsCXL+2 7 0 ENP 


IF f (X22&B001P)sB0010) THEN 
BEGIN #F J OO ESAC END# 

VG35 7 # TF PREVI0US = 7 

VG7 7 ftPCP LEVEL AND 
IF X22 = Bf?P12 THEN #0D# 
ELSE P3*sAX23 
FI 

END 

ELSE 

BEGim 

VG34 7 #RESET XI9# 


THEN OUT 7SKIP # 
DELETE# 

P 3 J s % ) 

#OUT p UT MINIAL SYMBOL# 













EXpR(G3! 


e y p s ( g 4 : 

E X P p c 6 5 * 


If- = 0 THFN ftNf T FOUND* P3*sAY23 ttOUTRUT SYMDOl « 
ELSE 

IP ( (*22X67770)THEN 
BEGIN 

VG6 f «PUSH LEVELS 

P3*SAV23? ftCUTPUT SYMBOL a 

IF X22 sBe^P? THEN *DQ* P3:s*( FI 

END 

ELSE 

IF *22*80021‘THEN aVECTOR LIST* ' MG42.4] 

ELSE 

IF X22 = BCC141 THEN ftGLOBAL LIST* »CG42i31 
ELSE 

IF X22=&100B THEN X3 i + fs1;P3* = "FLSF IF" 

ELSE 

IF (X22 = BPl?n THEN 
BEGIN 

ftFQRMAL LIST* $ tG42,n f 

VG3R ^OUTPUT DECLARE* 

ENO ✓ 

ELSE 

IF X22s8O201 THEN *VEC« 

BEGIN V G 2 P / ftPUSH AND SPECIAL* 

X2 ts% r 

END 
' ELSE 

IF X22 = BP4P3 THEN «»V« (X301 = TRUE;X2: *XV) 

FI 

FI ; 

VG5 

FI 

FI * 

FI 

FI 

FI 

FI 

END 

” >; 


* r ead 
X 3 ? = ( 


AMD CLASSIFY INPUT CHARACTER* 

IF f((X2JaR3) >s%A)ft (X2<sXZ) ) THEM ^ALPHABETIC* \ ELSE 

IF ((X2 > = XP) A (X2< = X9) ) THEN *NL*MERIC* 2 ELSE 

IF fX2 = Bt’‘232) THEN ftCNTRL 2 « 3 ELSE 

IF X2 = X» THEN A M101 A L SYMBOL « 4 ELSE 

IF X2 = X( then «OPEN ING parenthesis* 5 ELSE 

IF y?.s‘A) THFN ^CLOSING PARENTHESIS* 6 ELSE 

IF X 2 = X * THEN ft COMMENT DETECTED* 7 ELSE 

IF X2s%J THEN ftENO OF LIST OR STATEMENT* fi ELSE 

IF X25XS THFN ftLABEL DECLARED* 10 ELSE 

IF ((X2 = % = ) ! (X2 = %P) ) THEN * A S SIG N * j-j ELSE 

IF YZ-XV, THFN ftCHARACTER VALUE* 12 ELSE 

IF X2s 7,» THEN ft » » STRING* 13 ELSE 

IF ( X2 e SP){fX2 8 P)1(X2*B211)1(Y2=8?12) 1 ( Y2s LN)! CX2s3?ee) 
l(X2=P214) 

THEN ftSPACE,TAB,LINE FEFD,CaRR.R£TuRn* 14 

ELSE 2D El FI FI.FI FI FI FI FI FI FI FI FI FI)); 


ftPRINT ONE CHARACTER* P3J=X2)#* 


*PRINT#READ,CLASSIFY* VG4/VG3) ; 



















EXPRCG6J 


«PUSH LEVElw X12J ap.5piflrt + rxi J + J3J) ; 
*STORE Y AND ELIF COUNTS VG9J 
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Vl4jsx7 i y 15♦ =x31 ; 
X7:3Y3U=i3 ); 











i 


* 









T rnF 


EX.PR.CG71 ttP(jP LfVFl* 

* D £ L £ T E from list* Xl0jsy8? 

^Hli.E X31>0 DO f V3l-!sl /P3?=X) «ELIF CLOSE* )/ 
WHILE X1e<X9 OC ’ 

BEGIN IF (CX10&8M777) sylt «$AME LEVEL* 

THEN IF CXlM=(6<lyjM0 + xn) ^SPECIAL) TO )* 

THEN X?ls%] Fjf 
IF CY10*(B50P0+XI1) THEN 
X7 ! eC(X J 0 + 2) / * RESTORE* 

X3 1 :=C(X!Ci + 3) 

FI ; 

CX10|a-i ^DELETION SYMBOL* 

FIX 

Xl<*+!=5 «NFXT NAME* 

EK'Of 

xu-*«w 

X 17 S s XlM *’aX8 PRESET LIST POINTERS* ); 

EXpR(G9: *$ET NApE ON LIST* XlS/sTRUE/ ^ 

WHILE X J 8 DO 
BEGIN IE X 1 7<X.9 THEN 

IF CX17 = «• 1 THEN VGiP *COPY IN LIST* 

ELSE X17+J=5 
FI 

ELSE X9+:s5/VGl0 *COF’Y AFTER LIST* 

FI 

ENO ) I 

EXpP(G1P{ *C0PY NAME FROM PUFFER TO LIST CELL* 

X2i : = axi2-i ;xi : = xi7»i; 

WHILE (X2 l ♦* b 1) < AX17 00 

c(xi+:=i) ;=cx2i / 

X18:»FALSE) / 

EXpR(GltJ *SKIP COMMENT* VG5/WHILE X3/*7 DO VG5/VG5)/ 

EXPR(GU: *NAME DETECTED/SETUP BUFFER* 

XIJ=0/Xl8:sTRueixi2;=Xl3:aX14/5yi5S8Xi6lsp; 

WHILE (X18X(X1<6)) DO 

begin IF ((X3bj){(-X3«2)) then 
BEGIN C (AY24+X1)S=X2 / 

X2-!*P0257/#eulLO NAME* 

C(AX13+(Xt/2))+:=(IF fXl-((Xl/2)*2))a« THEN 
X?06 ELSE X2 FI)/ 

VG3/*REA0 AND CL ASS IFY*X 1 + : s 1 

ENO 

ELSE X18;aFALSE 

FI 

END? 

X?3:=X1 / *TRAN$FER NAME LENGTH* 
while xjss ((X3=i) i cx3«2)) on 
.8EGIN VG3 *NAME LONGER THAN 6 CHAR.S* 

END )/ 


EXPR(G1«S *Y IDENTIFIER* X12!=X11+ B1OE? #LEVEL X11*) / 

EVPR(G20; *SPECIAL! AT LEVEL"POP THEN ) TO )* 

VGG/*PUSH LEVEL* X1 ?. i s0<l0t»D + X t l / VG9*T 0 LIST* )/ 

EXRR(G2l! ^LOOKUP IN TABLE* 

XI0/=X8-5/X!6l=0/X2?J = TRUE/ 










i 








.'Begin xi :a«i?yj?:sTPUc; 
whIlf ( xiaxc(xi4:si)< 4 )) oa 

IF CUX1£ + X1)/ = C(XIC* + Y1) THEN X18JsFALSE FI 7 
IF X 1 8 'f H £ N X2flJsfAL$fc #FOtlNI)* ; X1 6 i sC ( X 1 7 + 4) 

FI *NOT FOUND: LOOP* 

END ) / 

EXP3CG2?: »SFAPCH X-NAME* X127SB30O07VG2l? ^SEARCH X* 

IF xioap then #a new name* 

V( EXPR (G221:. X12»*B30«0 / XI6: = (XS+.7El);»CHAIN* 

VG9 *ADD TO LIST* )) 

fit P3:=XX SOUTPUT X* )/ 

EXpP(G23 j SSEARCH G* » 

Xt2:=B2E‘0P;«$F:TUP G* VG21 SAND SEARCH* ); 

EXPR(G2A: SsEARCh loop UNTIL LEVEL 0* 

XJ 2 +JSW xj6:=o : 

^HILE ((((Xi2-: = 1)XP0777)/S0) 8 (X16 = 0)) DO 
VG21 SSEARCH* ) )' 

EXPR(G2S: SSEARCH Y IDENTIFIER* /VG19;*SETUP* VG24 . SSEARCH*)/ 


EXpR(Q 27 : /jOILTPUT Xlf>« P3*s (DECS (X16) ) n » )j 

EXPR (028 5 SSEARCH AND DEFINE G« VG23 7 SSEARCH G* 
IF XlfisO THEN Xl6:s(XA4}si);VG9 FI )} 


EXPR(G29 J ^SEARCH and DEFINE Ytt VG25 7 
IF X 16afl THEN 

V EXPR (G29U VG19 j XL67»(X7+7 at ) 7 VG9 ) 

fl 5 7 


EXPR(G31» *5K IP AND OUTPUT CR,LF,TA8,SP* 

HHILE X3 = 14 DO VG5 ); 

EXpR(G34• PRESET X19 FLAG* X197aX3fl7=FALSE 57 


EXPR(G35J «TEST ;) COMP IN'AT I ON 7 OUTPUT "SNIP" IF SO* 

IF X19 THEN P3* = »SKIP "7 VG3A#RES£T* FI )/ 

EXpR(G3PJ SOUTPUT DECLARE* P3*a"0CL(".DECS (X7) . ") / » )J 


EXPR(G40 J ttlOENTlFIEP DETECTECS VG14;*REA0 NAME* 

IF X3«7 ftCOMMENT* THEN VGll FI; 


VG31 7 »SKIP SPACES# LINE FEEDS ETC* 

IF X3 s 10 THEN *7 DETECTED* 

BEGIN 


VG37 SREAD NEXT* 

IF X3*11 *;s« THEN 

BEGIN 


VG25 ; *SEARCH Y* 

IF X!6*0 THEN VG22 *X IDENTIFIER* 

ELSE P3l»%Y*Y IDENTIFIER* 

PI7 

VG27 7 SOUTPUT XI6* 

P3:=%: *PRINT :a ,read chars 

End 

ELSF *LABEL* 

*G* P3JC7GJVG2B J *SEARCH AND OEFINE* 









4 








VC27-; ft OUTPUT CMAJ N NUMBER*# X2J a*: -120 

M ; . 

VG5 <♦ P £ A CJ NEXT## 

END 

ELSE BEGIN 

IF X3 = 5 THEN *#PROCEDURE NAME## 

BEGIN 

VG2E; «SFAPCH and REFINE Gtf 
VC2P» ttSPECIAL TO LIST## 

E3*«"S Cfi n |VG27-;XgJsX, JVGS * 

#* CUT PUT HG....,#* 

END 

ELSE 

BEGIN ' 

IF V3fl THEN VG28 / P3:=*XG ^FUNCTION** 

ELSE 

Begin vg?s ; #*search y## 

IF v i fisft THEN 


BEGIN VG23 ; <#SEAR£H G## 

IF X16ac* THEN VG?2 ##SEARCH AND OFF X<# 
ELSE P3:*VG 
FI 
END 

ELSE P3J=XY 

FI 
END 
FI 
END t 

VG27 «PRINT NUMBER## 


END 


FI IVG34 PRESET X19 AND X30## )) 


SUBP(G4?J ##LIST OF NAMES## X22:«=TRUE; 

WHILE X?2 DO 

BEGIN 

.VG3U *SKIP LF,CR,TAB,SP#/ 

IF y3*7 THEN VG I 1 FI; «SKJP COMMENT## 

IF V328 THEN X22:=FAL5E UJ IS LIST END## 
ELSE IF X3=1 THEN 
BEGIN 

VG 14 I #jREA0 NAME## 

CASE T1 IN 
##V#i VG29J , 

*#L* SKIP , 

#*G ## VG28 , 

*<X## • VG221 

ESAC 
Eno 

ELSE VG3 
FI 

c p I 

Eno > VG3 ) > 













TAtfLt: f G50: 


651 • 

ENO; 


2,XUXF,B?.un, 

2,%o,y.o,c*(n?2, 

4, %C,*A,%S,ZE,000<a3, 

5, %B,ZE,XG,%I,%N,B0004, 

2,y.F t Yl, BPB i 1, 

2, %O,ZD,BP012, 

A,XE,VS, XA,%C,80P13, 

3, %E,ZN,X0 ,P0014, 

6»%Vf5?£,%C # XT#XO,XR^ 8*021, 

6, %G,XL»%G,XB,XA,%L»00041, 

6, %0, VR, XM, X A, %L, B01 <?l 1, 

3»%V,XE,XC,Pfc)201, 
1,%V,P0403, 

4, %E#2L,XI,ZF,81030 ) 













c 
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bEGlN ' «HIDIAuGOL TO MIM'ALGDL PREPROCESSOR, 
WRITTEN in NIOIALGOL , 


DATE 75/01/17 

by h.luiijf 

T.h, DELFT THE NETHERLANDS, 


LIST OF VARIABLES 1 


INFUTCHAR 

CLASS 

GCNT 

XCnT 

LCNT 

YCNT 

EL IFC-NT 

LIS T y F G 

LISTEN’D 

SETONLST 

LCKIJPLST 

SCOPE 

PAkLEV 

LEVCLASS 

CHA f> 12 

C H a R 3 4 

CHAR56 

lDENTNR 

flagv 
FIGHLP 
FL ACCDHMA 
FLCFGUND 
HELP1 

helps 

T A 6 L fc N R 

ELEMNR 

CHARI 

CHAR2 

CHAPS 

C H A R 4 

CHAPS 

CHAR6 


-LAST INPUTTED CHARACTER 

-INPUT CHARACTER CLASS 

-G-COUNT 

-X-COUNT 

-L-COUNT 

-Y-COUNT 

-ELIF-COUKT 

' -NAPE LIST BEGIN POINTER 
-NAME LIST END POINTER 

-CURRENT POINTER FOR SET ON LIST OPERATIONS 

-NAME LIST CURRENT POINTER FOR LOOKUP OPERATIONS 

-CURRFNT LEVEL 

-PAPANETER LEVEL 

-NAME BUFFER i LEVEL AND CLASS 

-FIRST TWO CHARACTERS OF-NAME 

-CHARACTERS 3 ANQ 4 

-CHARACTERS 5 ANQ 6 

-CHAIN NUMBER OF NAME 

-flag v detected, 

-COMMON VARIABLE 

-FLAG FOR PREVENTING THE 1) STRUCTURE’CONVERT TC 7SK1P) 
-FLAG FOUND IN TABLE 
-COMMON VARIABLE 

-common variable 

-MIOIAL SPECIAL WORD CHAIN NUMBER 

-N’UMBFR OF ELEMENTS 

-CHARACTER 1 

-CHARACTER 2 

-CHARACTER 3 • 

-CHARACTER A 
-CHARACTER 5 
-CHARACTER 6 


# PROGRAM DRIVER # 




BEGIN ^INITIALISE# 



DCL(A W0-A X0-B00605; 

P 3*s»( dcl(100);» ? 

x13 :«isxt 4 :=xi 5 s = x1 6 5=07x17 5 = 1; 

X16 :b(X1D :=X20 5 = 721 5 = AX 33 

# $ E T AFTER 

C X?0 5 = — 1 7 #CREATF 1 LIST. CELL « 


X LIST# )♦ 5 f 
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V G3 1 PRESET FUGS* 

x?2 J*X23 :ex?4 J a 2P ; ^PRESET X,L AND G COUNTS 
VG< * f #READ AND CLASSIFY# 

#TEXT SCREENING ON THE PAIN LEVEL# 


WHILE X25 /*3 DO( 

I 

IF X85 M THFN V G5 #IOENTTFIEP/LABEL# 

Et-SF IF X25 -<i THEN v 65 RMIOIAL SYMPOl # 

chfE ! F X25 B? THEN v G7 #COMPENT DETECTED# 

ELSE Ip X25 =14 THEN V GS #$P,LN,LF# 

ELSE IF X25 =5 THEN V 

G9 #0PEN PARENTHESIS DETECTED# 

ELSE IF X25 =6 THEN V 

G10 ^CLOSING PARENTHESIS DETECTED# 

ELSE* IF X25 =8 THEN X26 :=TRUE **/ DFT^CTED H 

ELSE IF X25 «12 THEN VG3 ?V Gil #X DETFCTEO 

pi «r T p ^ESFT FLGCOMMA/CUT % AND FOLLOWING CHAR.# 

ELSF IF X 2 5 -13 THEN VG3 ; V G11 ; WHILE X 2 5 / a 13 

„ DOC V Gli ) # S KIP « '• STRING# 

else V G3 #OUTPUT CHARACTER# 
miFI ; V 

Gil ) ) ) FI - ** 

) ; 


end ; 

H -- 


VG12 t 


#TEST ;# 


#OtfTPUT PISSING CLOSING PARENTHESIS# 

IF X16 >0 THEN P 1* = ''0".0ECS(X16 ) PISSINGO" / 

WHILE X16 >0 DOC 

V G1P ; it DELETE LEVEL# 
v G13 # P RIN T # 

fi; 

P 3*=tx)/%; , LN,LN,8?232J #OUTPUT THE ) OF THE (DCL...,« 


EXPR (G6 t # MIQIA L TO HIMAL - STANDARD WORDS # 


#REAO PIOIAL SYMECL STRING AND SEARCH JN TABLE# 


V G-4 1 #READ SYPeCL# 

V G14 ? #P£AO SYPRCL STRING# 

X?7 !s G1 ; V Gib #FLGHLPJ=»TRUE# ) 
WHILE (X27 <=G2 JX X23 00( 


X 29 ! 8 ( IF ( X 27 HD A X« 1 #IN TABLE ? # 

&fA X6 HO X27 ) 

then v Gie *flghlr :=• false# ; c 1x27 +c 

ELSE X 27 «■ J =c X 2 7 +2 / 0 

FI i 


X27 +1) 


IF (X29 &B0P1O)=82010 THEN. 


#FI QO ESAC END# 












BEGIN 
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*.#IF PREVIOUSs; THEN OUTPUT ,‘SKIP- ft 

V Gin ! UPCP LEVEL and delete# 

IF *29 =80012 THEN #DD# V 

Gl3 ELSE V GJ7 #C»UTPUT STANDARD WORD# 

FI 

END . . 

ELSE 

begin 

V G3 7 ftRESFT FLGCOMMA# 

IF *29 =0 THEN ftNOT FOUND# V 

> G 1 7 ftDUTPuT SYMBOL# 

ELSE IF (X29 & B 7 7 7 0)= 0 THEN 
BEGIN 

V G9 ; ftPUSH LEVEL# 

V G17 I ftCUTPUT SYMBOL# 

IF Y29 =B0002 THEN ftDOft P 3!=%( FI 

END 


ELSE IF X29 *R040i THEN ftGCTO# X30 i=TRUE;V 
G17 ELSE IF X29 =82000 THEN \JG\7 J X3 2 aX17 7 
X2 !=X15 7 ftSUBR OR EXpR# 

X6 !=P60B0+fXl7 :=X16 +1JIVG18 ; 

x15 

ELSE IF XP9 =80021 THEN #VFCTOR LIST# S CG19 ,41 

ELSF IF X?9 =R0022 THEN # ARRAY LIST# S[G19 ,51 

ELSE IF X29 =00041 THEN #GL0BAL LIST# $CG19 ,31 

FLSE IF X29 =80042 THEN ftLAHFL LIST# MG19 ,21 

ELSE IF X29 =81000 THEN #ELIF# X14 +S=U 
P 3* = "ELSE IF" 

ELSF. IF X29 =80100 THEN 

ftFORMAL OR LOCAL LIST# ' S{G19 ,11; 

P 3* = "DCLC" , DECS f X15 ) 

ELSE IF X29 =80201 THEN «VEC# 

VG?0 ; ftPUSH AND SPECIAL# 

X31 S=X[ 

ELSE IF X29 =80400 THEN «v# X33 J=TRUE ; 


) FI ; 

v 

gi i imnniFi 
END 
FI 


X3i ;=%v 


u 


EXPR(G17 : P3* = A 


X6 #OUT PUT STANDARO WORD# ); 















> 


» 





11 


EXPR(P4 1 X? 5 1#(IF (C X 31 • l sR 3 ) > = ZAUfX31 <^2) 

THgN //ALPHABETICAL INPUT*/ 1 

if'ff < = %9 5 T HfN //NUMERIC#/ 2 

tLSE IF X31 =80232 THEN 3 . • 

ftCCKTRCL 7. H 

else if x 3 i =%• then /#njoial symbol//-' 4 

else if X3i = xc then //opening parenthesism 5 

ELSE IF X31 sj£) THEM //CLOSING PARENTHESIS// 6 

ELSE IF X3J s%n THEM «COMM£nt DETECTED// 7 

ELSE IF X31 5%; THEN i/ENQ OF LIST UR STATEMENT// 
ELSE IF X 3 1 = XJ THEN //LABEL DECLARED// 10 
ELSE IF (V31 zge){(X3l e%<?) THEN //ASSIGN// 

ELSE IF X31 = X% THEN //CHARACTER VALUE// 1? 

ELSE IF X31 = *X" THEN U " « STRING// J3 

ELSE IF (X31 = X32 )1(X3J =0)l(X3l sB2U)l 
(X31 *6212) 1 (X31 =B20«)!(X31 =LN) 

, 1CX31 =6214) . 

ELSE ^ SPACE,TAd,LINE EEED, CARR, RETURN,CNTPl L« 14 

))nin)))))Fi n; 

EXPR (G21 J //PRINT ONE CHARACTER// P 3; =X31 ); 

EXpR(Gll : //PRINT,READ,CLASSIFY// VG?1 ;VG4 ); 

EXpR(G9 i //PUSH LEVEL// XI :=85000+fX16 +: = l); 

X2 : = X14 ; //STORE ElIFCCUNT#/ V G3 J 
VG10 / XI4 J30 ); 

EXpR(GlD ? WpDp LEVEL// 

V G12 ; //TEST CnPPAFLAGtt 
.//DELETE FROM LIST// x?0 :rX!9 ; 

WHILE X14 >? DC( X14 «;* 1;v G13 )1 
WHILE X20 < X18 00 C ■ 

IF f(X27 !=C X2D )=B6Pt0D + X16 

(X27 =868«0+X18 +1) THEN 
C X2U :s-,i;xi5 :sC(X2P *n; 

X17 :*CfX?g +2) //RESTORE U 
ELSE IF X27 &8p777= X16 THEN 
X27 -J=X16 ; 

IF X27 *84000 THEN X31 S 
ELSE IF X27 *85000 THEN X14 :* 

C(X20 +1) 

)FI; c X20 jr-l 
5 FI ? 

X20 +;c5 //NEXTCHR NAME// 


U 

>16 


■ * 5 1; 


EXPR(G13 
EXPR(G18 


X2i ;«X2e is Xl<5‘ //RESET LIST POINTERS// 

/P 3:*X) //OUTPUT A ) SYMBOL//) J 

//SET NAME ON LIST// V Gl5 //FLGHLP J * « TRUE#/1 
WHILE X28 DC( 

IF X21 < X18 THEN 
IF C X21 s»1 THFN V 
622 ELSE X21 +ls5 
FI 

ELSE X18 +;=5?V G22 //COPY AFTER LIST// 
) ‘ fl )? 


) ? 








* 


* 






txpRtna? : ficnpY name from puffer-to list cell* 

X33 isA XI -1?X27 JaX21 «1 f 
WHILE (X33 +Jen<A X21 DO( 

C CX27 +:=l)jsc V33 ) i 

V G16 RFLGhLPs=»FALSE«)/ 

Expp(G7 s rskip comment* v gii jwhile xps t*7 

DO( V G1l ) ; V Gil); 

EXpR(Gi4 I *NAME DETECTED;SETUP BUFFER# 

X?7 t aX1 ! 5X2 j=*3 ; sx4 J^XS {a 

X6 :=x7 :=xa :=X9 ;axi0 :=xu :=xt2 ;so ; 

V G15 &FlC-hLPl8»TRUE# \ 

WHILE C X'26 & CX27 <6)5 DQC 

IF CX25 s t)1(X 2 5 s2) THEN 
BEGIN C (A X7 +X27 );= X31 } 

X3i » I *80257;RBUILD NAME* 

C (A X2 + CX27 /2))t:8(IF CX27 - ( (X27 /2)*2))sfl 
THEN X3t 06 ELSE X3l FI); 

VG4 I*READ and CLASSIFY* 

X6 5 « CX27 +;=i) 

END 

ELSE V G16 *FLGHLP!= f FALSE« 

FI ); 

WHILE X28 SCCX25 sl)lfX?5 a?)) DOC 

V G4 RNAME LONGER THAN 6 CHAP’S* ) )f 

EXPRCGI5 ;X20 :*TRUE); 

✓ 

EXPRCGI6 :X28 isFALSE)J 

EXPR(G23 : «L LABEL* XI is XI7 )/ 

EXPRCG24 i *Y IDENTIFIER* XI taX17 +B1000 ); 

EXPR (G20 : RSPECIALI AT LEVEL^PQP THEN ) TO 1* 

V G9 1X1 :=B4ei00 + X16 IV G18 )) 

EXPR(G25 : *LO0KUP IN TABLE* 

X20 J s x 1 S -5IY5 • s g ; x 1 3 JsTRUE; 

WHILE (X 1 3 ACCX20 +S=5)<X18 )) DOC 

X27 :=-l?V G15 AFLGHLPJs'TRUE*; 

WHILE (X28 J f (X27 +: = 1)<4)) DOC 
IF C(A XI +X27 )/=CfX20 + X27 ) THEN 

V G16 *FLGHLP;=’FALSE* FI 

) J 

IF X28 THEN X13 :*F ALSE 1X5 rsC (*20 +4) 

FI *N0T FOUND: LOOP* 

) .); 

EXPR (G2fi l *SFAPCH X*NAM£* XI : 8830^0; VC-25 J 
IF X5 =0 THFN *A NEW NAME# 

V c EXPR CG?7 :xi JSB3000 ; xs Js(x24 ♦:a})» 

V G18 * ADD TO LIST# )) 

FT; xx #auTPUT x* ); 

EXpf?(G2S : #sEARCH G* 

xi : sR2O00;#SETUP G* V G25 * AND SEARCH* )f 

EXp*(G29 : *SEARCH LOOP UMIL LEVEL 0* 

XI +J8jf X5 :=0 t 

WHILE CCCX1 "!aj )SB5*777)/a0) A CX5 Bfj) CQC 














EXPRCG36 : ^OUTPUT IPEN7NF# P 3*s(DECSlX5 ))," *' )/ 

£XpR(Gl? : ftTFST ;) COP B 1N AT I ON / OUTPUT "SKIP" JF $Q# 

IF XPfi THEN P 3*="SKIP »; V G3 #RE3F.T# FJ 


£XPR(G5 * ^IDENTIFIER DETECTED# VG14 /#R£AD NAME# 

IF = 7 ^COMMENT# THEM V f,7 pj; 

V 08 ; «SKIP SPACES,LIME FEEDS ETC# 

IF V25 sjp THEN til DETECTED# 

BEGIN t 

VG4 ; #RE AO NEXTCHR# 

P 3Jfi IF X25 =11 ti'.stt THEN 

begin 

V G3P ; #SFARCH Y tt 

IP X5 =0 THEN V G?6 #X IDENTIFIER# 

ELSE %Y#Y IDENTIFIER# 

FI 

END 

ELSE ALAREL# 

VG3 1 ; ftSEARCH L# 

IF X5 = 0 THEN ft G# VG32 ; */,G 
ELSE XL 
FI 
FI ; 

VG3G ; ^OUTPUT CHAIM NUMBER# P 3:»%: 

ENO 

ELSE 

if X25 =5 #%(« then ^procedure name# 

BEGIN 

V032 ; # s SEARCH ANO DEFINE G# 

VG20 ; #SUP CHAR. TO LIST# 

P 3* = "$rG»;VG36 ;v 3 1 :=x,;v 
Gil #0UTPUT S f G. *, ,, # 

END 

ELSE 

P3J= BEGIN 

VG31 »’ #LCCAL LABEL?# 

IF X5 sg THEN 

IF X33 THEN VG32 J XG HFUNCTJQN# 
ELSE 

BEGIN v G3B I #SEARCH Y# 

IF X5 30 THEN 

BEGIN V G28 ;#5EARCH G-4.AREL# 

IF y5 =(3 THEN V 
G26 
FI 
ENO 
ELSE 
F I 
ENO 
FI 

ELSE. 

FI 

ENO ; 

V G36 

FI 

FI ;V G3 #PESET 

suaR(oio : #list of names# 

WHILE X29 DOf 


ELSE XG 

% Y 

XL 

#PRINT NUMBER# 

FLGCOMMA and FLAGV# ); 
DCLCi); X29 !s TRUE; 








<. 









) 

T ABLE CGI J 


G2 

End; 


VGfi ? k SKIP LF\CR,TA8,SP,CNTKL U -129- 

IF X25 =9 THEN X29 t sFALSE HI IS LIST END# 

ELSE IF X25 si THEN 
BEGIN 

V G14 ; feREAO NAMEh 

CASE Y1 IN 
tty* V G34 , 

flit V G35 , 

«Gi# V G32 , 

HXtt V G27 r *<VECTOR LIST# 

#X# BEGIN VG^37 ; X?7 Jsm ;«APRAY# 

WHILE X25 /s2 DC( Y G4 )) 

«READ UNTIL A NUMERICAL CHARACTER# 
WHILE X?5 =2 DO( 

X27 }5.(X27 +lfl) + (X31 
V 

G4 ) IX24 +:■ 

X27 END 

ESAC 

End 

ELSE V 
G4 TFI 

f v G 4 ); 

2/XIiXF,80fnili 

?, Xf),*0,8*002, 

4, %C#XA,%S,XE,B0003, 

5, %B,*/E, 2G,%I,XN,8fe)004, 

2f XFf%2 ( efleu> 

2»%0,70,6*012, 

4, *4E,XS,XA,XC,B0013, • 

3,XE,XN,*0,60014, 

6, %V,%E,XC,XT,XO,XR,B0021, 

5, %A,*R,XR,XA,XY,00*22, 

6, %G,7L,3CC,X8,%A,XL,B0041 . 

5, %L#XA,XB/XE»XL#B0042 f 

6, %F,xg,Xfi,XH,XA # XL,B0100, 

5»Xtf%O,XC,XA.%L,B0i00, 

3, %V,%£,%C,B0201, 

I #%V,B34ec, 

4, *E,XL,%I#XF,ei000 , 

4,%S r XU,%0,XR,B2000 f 

i4.%E,%X,%P,%R,B2000 ) 


SKIP ) 
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6.10 PROPOSALS FOR A NEW MIDIAL PREPROCESSOR 

If the preprocessor is bootstrapped to another computer with 
a bigger program store, the following restrictions of the 
preprocessor can be alleviated: 

1. Allow comments in the lists of the declarational operators. 

The v/ay how this can be done is given in the flow diagram 
of the LIST subroutine of the preprocessor, (see page 79) 

Still another check on comnent must be made then within the 
array part of this subroutine at th.e reading of the number of 
array elements. 

2. The locality of X and G identifiers within the body of a PROG is 
not incorporated in the current preprocessor. 

This can be corrected so that a local list in the preprocessor 
elaboration the secondary of PROG of the X and G identifiers is 
built up. 

The level part of a word of the identifier list can be increased 
by B100 for every new entered PROG . 

A new save word for all the counters can be created as class 
number 7. 

3. The searching of identifiers or of save words , which is now searching 
through the whole list, can be speeded up by linking all L-labels, 

all.Y-identifiers, all special words etc. to each other as an L-string, 
Y-string and a save word string, respectively. 
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6.11 EXAMPLES. 

THE DAY OF THE DATE 

The program must find the day of a typed-in date. 
The formula for the Gregorian day is : 


r:=( day + (month+l)*13 t 5 + year + year * 4 + century t 4 

-2*century ) mod 7 , 

where r=0 gives SATURDAY as day. 

January must be computed as the 13-th month, and February as the 
14-th month* of the preceding year . 


r 

V 

r 



( ttPKOGPAM THAT CALCULATES THE DAY Of TM£ n A T F, 

H,I.U11JF 75/tol/l7 tt 

' SUI1K (MOL 5 irOPhAL X,Y ; X *> ( X / Y * Y T ); 

•SuHHfDA ! In: 'FORMAL V f 'LOCAL X; aPEAD N DIGITS AS NUfiRERa 

x:=o; H a (X's ('DIGIT 1-X«) + CX*10)) ;x ); 

• Pj*s»yAY OF DATE.OYYYY/MH/nDO"; 


• a’HIlE » rpUE 'DO 


YFAP j el)A T IN f 4 ) ; I PI :«r</ ; 

'hi•- 1/ M * NTH:=0ATIKC2) )sl 31CM0NTHs?) 'Then month+:=i?;yeas-s=i »fi; 

",'CASE CC'ATINfS) *CAYtf +(HCK'TH+1*i3/5I + 

C TCFnTIJPY : sYEAR/1^^) //!)• £?*CtHTURY) + (YEARJ sYEAR .^qp 10 ?^ 
♦rYEAP/4) +77 T7 'IN ~'* 1 ^ 

’ , SUN , V"HCN","fUES , «, , 'wEPNES'V'TNUPS'V'FFI'' 'OUT " S A T U F " 'FSAC 

« " 0 A Y 0 " 


) } 


00 
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The Post algorithm. (4) 

Given a finite string S of 0's and l's. 

If the first digit of the string is a 1, append 1101 to the string 


and delete the first three digits. If the first digit is a 0, append 
00 to the string and delete the first three digits. 




As you can see, if there is a O.as the first digit then the string 
becomes shorter, if it is a 1 the string will grow. 



If is not yet known whether there are strings that will grow forever. 
There are strings which end in 00 ( 111 111 111 111 ill is a very 



good example ) or strings which becomes periodic. 

The following Midial program allows you to try a self chosen string 
to be treated by this algorithm. Type the string; every character 
which is not 0 or 1 starts the algorithm. 


Notice the use of the SL^ (slice) operator in combination with the 
use of the vector length. 


fePCfT A! tirf?ITHf 1 7V<U/1G* 

(’“RILE 1 TRUE 'DO PrNTjsf. ; 

»Pl«r8"C0PC\ST ALGORITHM, tYPt STRING ...0" ? 

VtCPrst V-FCO f 

1 VHILF ( l NUMBER : 5 • K 1 ) sjcn) 1 (NUMBER 1) 

*DG VECF,:s'VPC(NUhP£P) sRfcAD STRINGS '00 / 
'PlSs'LN ; RCNTjcfr. ; 


•WHILE »C(VFCF)>2 •DO 
' l F 1 C (V£Cf+ 1)stffc 'THEN 

V F t PIs(V E C R 'SL ' VfeC (4,»C VECP )) , 
f ELSE 

VECP: sfVFCP ' SI. 'VFCf4,'C VECP)) , ” 11 P 1 *' 

• FI i 

CWT:sVtcpr 

'WHIIE (CKT+i 81)/8 fVF.CP* *-C VECP +n »cc 'PlJs'C CNT »00 ; 
' P1:5»l. k ; 

' IF ( RCM + i a 1) =4 'THEN F f N T I cfl ; ' RESET » FI 

•00 

•CD )i 











* 
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In the first part of the program the initial string is loaded and 
assembled by means of the concatenation. 

In the second part the algorithm is programmed, the vector is 
sliced from the fourth element till the last- one, and either "00" 
or "1101" is concatenated. 

Because of the fact that the vectors are created in the vector area, 
we can not print with the vector assignment operator. Therefore the 
printing is done element by element. The vector, stack is reset when 
RCNT becomes the value of 4. 

This program can be shortened : 

The algorithm for creating the next string can be compressed when 
the vector is sliced first and then the conditional vector 
concatenation is done by means of a nonvoiding IF clause. 

The final program becomes now : 


*j’ p usT algorithm 
('WHILE 'TRUE >00 rcnT: 
« p l* a "OOPr-ST ALGORITHM, 
VECP:- 1 VEC O ; 


75 / 01 / 16 # 

; 

TYPE STRING ,,,0" J 


•WHILE f IMUMBFR J s »R I ) sJJP) I ( M U M B'E R 8 % t ) 

'•00 VECP, J = » VEC (NLifFER) STRING# » 00 ? 

•PUs'lN ; RCNT: =0 ? 


’while «C(vecp>>2 »do 

VECP:s(VECP ’SL 'VEC(/,’C VECP )) , 

•TP ' C ( VECP+1) ' THEN 11 P f," ’ELSE " 1 1 W 1 " ’FI s 

'PI**VECP,"0" ‘ 

»OU 
•DO 


) 










* 
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A PROGRAM EXECUTIVE. 

This program is a program which encloses four PROG's (programs) , 
and one program which can be loaded into a core buffer from a batch 
string of program binaries from the highspeed input channel. 

Inspection of the program, reweals that a vector of program address 
pointers is created. With the declaration operator VECTOR the 
identifiers of the main program are located in consecutive memory 
locations. 

Thereafter three memory instructions of the loader are modified 
with no-operation instructions (IB7000, see page 102) . 

Four programs are defined. They reside permanently in core. First 
the program number 5 is called with the CALLPR (-ogram) operator. 

Typing in a digit between 2 and 5 executes one of the incorporated 
programs ( list of squares, plot of Y 2 /4 , the triangle of Pascal 
and the list of possibilities.) . 

If the digit 0 is typed in, the maximum number of X-store locations 
available is declared, this number is placed in the location of the 
load buffer begin. (LOAD) Thereafter the loader is called, 
the loaded program address pointer (program 1) is placed on the location 
following the load buffer begin, after the program vectorlength. 

The X-store is shortened to the number of X-store locations used within 
the program executive added to the number of X-store locations used 
by the loaded program, (without its own X-store, this is declared at 
the program call with CALLPR.) 

Typing in another digit greater than 5, the executive execution is 
ended and the control returns to the Monitor. 

Note that the typed-in digit is read with DIGIT and delivers the 
character value of the typed digit. 
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^PROGRAM executive , 


H.LUIIJF 


76/01/27 H 


{ 'VECTOR N, PROGRAM,PR1,PR?,PR?,PR4,PR5,LOAD7 
'C «P767ft:=»C '07677: = «C » B770A1J « • B75I0O 1 

PRj>: 3' PPOG (#X AND XA2MX:sfl; 'WHILE (X+;sl)<U too 

t P H * s»' 0 H , * DECS ( X) . w ",»OEC$(X*X) * CD 7 • P1 S a ' UN );' 

PR3;a«PP0GC«PL0T OF X*2 /4#? t Pi **516 a%*7 x;=0; 

•WHILE X/=16 »PQ 

»Pl*stio*'', ux+:sn+x//iA‘$p).'i + '« ) 'od;«pi:s»ln )i 

pR4!s»pROG(WTPlANr,LF OF PASCAL# 'ARRAY P(15)| P*alVEC(t); XJa70; 

'WHILE P / = 1 5 'DO 

»Pi*s(x-:s6)/?A'SP; »Pi*s'STe» 'DECS« 'A P; 

•Plts'LK'J P*»('A P, 'VFC(e) )+$>( ' VEC(O) , »A P) 

• OD ); 

PR5*.s’PR0GC •Pl + s l '6fjsLPAD01sEXfe*C02sX , X a203=PLOT 0 4 sp A SC AL05=PR0GR A mSO " ) ,* 
'CaLLPR PR5;' 

•WhlLF ( 'Pl + s"OPHaGRAH NO."I(N:s'DIGIT 1 ~%0)<s5) '00 

'IF N=W 'THEN 

•OCL(LOAD: = *C »B0C24^'AXfl-l00) J 
S'VECf»P7600,4,'A LCAO);PRl:='A LOAD+U 
•DCLC'A LOAD-»AX0+LOAD)/ 

•Pl*5» LOADED" 

•else 

•PISs'LN t 'CALIPR »c ('A PROGHAM+N) 

•FI 

'OD ); 


pThF TRT4MGLE of PASCAL tf 
IBEGI^ 'AtRAY PASCAL (15); 

PRESERVE VECTOR' ROOM# 

LMCRT.’=70 ; #L£NGTH CF OUTPUT LlNF« 

, p«?E ,l "' VECC,) ’ " v t«OS INITIALISATION 
»00 IUE P$Cl /S 5 ftv£ CTOR LENGTH AS COUNT# 

'Pl«a^TN!s5)/? a'SP ; ^CREATE THE LEADING BLANKS# 
' P1 * s f i S T pi 'DECS G 'A PASCAL ) , ' VfC ( ' LN) ; 

#0 ! JTpUT THE STRAIGHTENED NUM0 £k VECTOR# 

RCALC'LAIE NOW THF NEXT LINE : 

VECTHH LENGTH FOLLOWED BY the NUMBERS 
CONCATENATE WITH ZERO AND add THE INVERSE VECTOR 
Tf-E second vector : 2.1.1 CNNCATENaTED BECOMES I 
AND make THE INVERSE VECTOR : 

^.0.1,1 ADDED BECOMES THIS 
3.1.2.1 ETCETERA,..,.., ti 
PASCAL* s(* A PASCAL.«VFC(0))^ (»VcC(0),'A PASCAL) 


'OD 


); 
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PROBLEM: THE TOWERS OF HANOI. (4) 

On a board there are thre pegs. On the first peg there is initially 
a stack of disks. These disks are not equal of diameter. 

The disk on the top has the ^smallest diameter, and going to the stack 
bottom, the diameter of each successive disk is greater than the 
diameter of the 'preceding one. 

The problem is how to move all disks, one by one, to the second stack 
with the restriction that-never a larger disk shall be above a smaller 
disk. 

The third stack may be used for shunting. 




0 




f* 

v* 




If you have one disk , the problem is solved by transferring the 
disk from stack 1 to stack 2. 

If you have m disks, you solve the problem by moving m-1 disks to 
the shunt stack (3) , moving thereafter the rn-th disk to stack 2 and 
moving back the m-1 disks from peg 3 to the peg 2. 

It can be proved that 2 m -l movements are needed for solving the problem 
for m disks . 


TOWERS OF HANOI , 75/01/14 » 

( ' SLIBP (HANOI J 'FORMAL X,Y,Z,N 

I IF N>fl «THEN HANOI (X,7, Y, N-n ? 

A ru,F7 L = 0T3K FROM ", X. " TO . Y I 

v* * HANOI(Z,Y,X,MM) t FI I; 

H TEXT ASSIGNATION IN ThF X-STORE ? RESERVE ROOM « 

• ARRAY TK1(7),TK.2C7)»TK3(7) } 

T K1 " S T A C K 1 " I TKR* = " STACK 2"J TK3* = "STACK 3"; 

•WHILE • TRUE '00 
• Pi*s«0<\NUMRER: " ; 

NUMBERSs'DFClNfU ? 

«Pl*s''OTuWERS OF HANOI FCP: " . • DEC’S (NUMBER) DISKS*"! 
HANOI('A TKl.'A TKS,IA TK3 # NUMBER) >00 ) ? 









A 






c 

c 


NUmOEp; i 

toners of HAf,nl For: i risns 

l DISK FROM STACK 1 Tfl STACK 2 
NUMBER* ? 

JOViEWS OF HANOI FOR: 2 DISKS 


c 

c 

0 

« 

o 



1 DISK FROM STACK J TO STACK 3 

1 DISK FROM STACK J TP STACK 2 

1 OTSK FROM STACK 3 TO STACK ? 

NUMBER* 3. 

TOkERS OF HANOI FOR* 3 CISKs' 

1 DISK F'KOM STACK 1 TO'STACK 2 
1 OTSK FROM STACK 1 TO STACK 3 

1 DISK FROM STACK 2 TO STACK 3 

1 OTSK FROM STACK 1 TO STACK 2 

1 DISK FROM STACK 3 TO STACK 1 

1 DISK FROM STACK 3 TO STACK 2. 

1 DISK FROM STACK 1 TO STACK 2 

NUMBER* A 

TOrERS OF HANOI FOR: 4 CISKS 
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1 DISK FROM STACK 

i disk from stack 

1 DISK FROM STACK 
1 DISK FROM STACK 
I DISK FROM STACK 
1 DISK FROM STACK 
1 DISK FROM STACK 
1 DISK FROM STACK 
1 DISK FROM STACK 
1 DISK.FROM STACK 
1 DISK FROM STACK 

1 disk FROM stack 

1 DISK FROM STACK 
l DISK FROM STACK 
1 DISK FROM STACK 


1 TO STACK 3 
1 TO STACK ? 
3 TO STACK 2 

1 TO STACK 3 

2 TO STACK 1 

2 TO STACK 3 
I TO STACK 3 

1 TO STACK 2 

3 TO STACK 2 
3 TO STACK 1 

2 TO STACK I 

3 TO STACK 2 
1 TO STACK 3 
1 TO STACK 2 
3 TO STACK 2 


/—t 


/•» 



NUM8EP* fj 

TOrFRS Op HANOI FOR* *j DISKS 

1 DISK FROM STACK 1 TO STACK 2 

1 DISK from stack i To STACK 3 

I DISK FROM STACK 2 TO STACK 3 

1 DISK FROM STACK 1 TO STACK 2 

1 DISK FROM STACK 3 TO STACK t 

1 DIS * FRO*" STACK 3 TO STACK 2 

\ disk from stack i to siack 2 

1 DISK FROM STACK 1 TO STACK 3 

1 disk from stack p to stack 3 

1 DISK From STACK 2 TO STACK 1 

1 DISK FROM STACK 3 TO STACK I 

I DISK FROM STACK 2 TO STACK 3 

1 DISK FROM STACK 1 TO STACK 2 

1 DISK FROM STACK 1 TO STACK 3 

1 DISK From STACK p To STACK 3 

1 DISK PROW STACK J To STACK 2 

1 DISK FROM STACK 3 TO STACK 1 

1 DISK FROM STACK 3 TO STACK 7 

1 DISK FROM STACK 1 TO STACK 2 

1 DISK FROM STACK 3 TO MACK 1 

1 DISK FROM STACK 2 TO SIACK 3 

1 DISK FROM STACK 2 TO STACK J 

1 DISK FROM STACK 3 TO STACK t 

1 DISK From STaCK 3 To STACK 2 

1 DISK From STACK I TO STACK 2 

1 DISK FROM STACK j TO STACK 3 

1 DISK FROM STACK 2 TO STACK 3 

1 DISK from STACK l To STACK 2 

1 DISK From STACK 3 TO STACK 1 

1 DISK From stack 3 TO STACK 2 

1 D I S K FROM STACK 1 T n s f a cX 2 
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8.1 LIST OF ERROR CODES. 


I. In the MIDIAL system.- 


1. "SYS ERR AT nnnn" -codes : 
with .nnnn= 


0000 

Jump to location 0 or 1. 


This could be an illegal indirect 


subroutine entry in the minimised system. 

0316 

Error in the divide subroutine. 

7617 

Input for the loader is not a MINIAL 

binary, (starts not with B125) 

7632 

program binary too long for the reserved 


• program core . 

7670 

Recursive call of the loader in error. 

7706 

Checksum of the loader input and the 

computed checksum not equal. 

2. "I/O ERR AT nnnn" - codes 

• 

4660 

Try to read from the R3/R4 input device 

when there is no device or file specified 

, 

as bufered input . 

5010 

Writing a buffer to the output device 

in error . 

5017 

Output device full . 

5046 

Fetching of the input handler in error . 

5241 

Reading a buffer from an input device 


in error. 










> 
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5254 The end of the input file is reached 
while trying to read more input data. 

5323 Fetching the output handler in error. 

* 

5342 Closing error of; the output file. 

5450 Error in entering the output file. 

546? Directory device on output acts as a 
. non-directory device at entering the 

output file. 

5540 Error in the lookup of a file (-name). 

3. "n ) MISSING" - code : 

This is a warning error of the 
preprocessor. In the treated program 

there are n close tokens to less. 

*They are inserted automatically at the 
program end. 

II. In the MIDICM system : 

1. "SYS ERR AT nnnn" -codes : 

0000 Jump to location 0 or 1. 

This error may not appear in this system. 

„ 0324 Divide error. 

. ' 0676 Recursive call of a protected non¬ 

recursive subroutine. (SETFLAG error) 

5476 Compiler error : generated after ERR 9 
or label list full . 

7617 Input for the loader is not a MIMIAL 
•binary, (it starts not with B125 as 
leader frame) 




""" 
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G25 65FARCH# ) 
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£XPP(G35^ { ftSEARCH Y XOENTJF'IFR# VG24 ;«SETUP« V G29 *5EARCH*)| 

E*PR(G3l i ^SEARCH L W L A8ELU VG23 / &SETUP L« V G?9 )J 

EXpR(G3? ? ^SEARCH AND DEFINE GH V G28 t *<5EARCH G# 

IF X5 THEN X5 : = fX23 +l=l)?V G18 FI )/ 

£XPR (G33 : #SEARCH AND DEFINE Y« V G3C? ; 

IF X5 «» THEN 

VEXPR (G34 :V G24 ; X5 t»(Xl5 +1=1) ; v G18 ) 

FI ); 

EXPR(G35 { ^DEFINE l»LABEL* 

V G23 / X5 J * (X22 + ! = 1) ; V G18 «T0 LIST# )} 

EXpR(G8 I PSKIP ANO OUTPUT CR,LF,TA8,$P# 

WHILE X25 =14 DOC V Gil ) )/ 

EVPP(G3 5 WPESET FLGCOilMA FLAG# X26 J=X30 S«FAL$£ ); 











♦ 
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7632 

7670 

7706 


Program binary too long for the reserved 
program core. 

Error at the recursive call of the loader. 
Checksum error : the computed checksum 
of the loader input does not match with 
the checksum frames of the input. 


"I/O ERR AT nnnn" - codes: 


4660 


4725 

4734 

5056 

5241 

5254 

5323 

5346 

5450 

5467 


5522 


5540 


Try to read from the R3/R4 input device 
when there is no input device and/or 
file specified in the file command string. 
Writing an output buffer to the output 
device in error. 

Output device full, (the file is closed!) 
Fetching the input handler in error. 
Reading a buffer from the input device 
in error. 

The end of the input file is reaching 
while trying to read more input data. 
Fetching the output handler in error. 
Closing error at the output filer— - 
. Error in entering the output file. 

The directory device on output acts as 
a non-directory device at entering the 
output file (device full) 

The directory device on input acts as 
a non-directory device at entering the 
input file. 

Error in the lookup of a file (-name). 
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3. "ERR n" -codes (program errors) 


ERR 1 

A character sequence does not form a basic symbol 
in the language MINIAL, e.g. ISAC for ESAC . 

Actioh : The invalid symbols are ignored. 

ERR ’2 

A syntax error has occurred. This can occur when 
a basic symbol in MIDIAL was not preceded by a 
symbol, or when a ;-symbol is missing. 

Action : the compiler skips up to the next semicolon 
and continues to compile from there. 

ERR 3 

A void quaternary has been used in a nonvoid 

ERR 4 

context. This can occur if a semicolon preceeds a 
close token in the program. A SKIP operator is 
inserted there by the preprocessor. 

A dyadic operator has been used in a monadic 

context, e.g. DIV := /8 ; 

ERR 5 

An illegal operator and becomes is used, 

e.g. C0UNT+*= 7 or a + := . 

ERR 6 

A label has more than one defining occurrence 
in the same procedured secondary. 

ERR 7 

A label has an applied occurrence, but no 

defining occurrence. 

ERR 8 

An illegal secondary has been used on the left-hand 

side of an assignment operator, e.g. CNT-3:= 9 ; 

ERR 9 

The program is too large to be compiled with the 

current compiler and the current system. 

This will almost invariable mean that too many 
labels have been used. After this error the system 


generates : “SYS ERR AT 5476" . 

After ERR 3 till 9 checking continues but the code generation 
is in error. 

- 









* 






8.2 

B 0000 

B 0001 
B 0010 
B 0023 
B 0024 


B 0025 

B 0026 


LIST OF IMPORTANT MACHINE ADDRESSES. . 

Subroutine entry of the HALT operator and of the 
fault routines. On this address the program counter 
(call address plus one) is set. 

- First executional instruction of the error routine. 

- This address contains the stackpointer (STP). 

This address contains the vector area top pointer (VAP). 

This address contains the vector bottom pointer (VAPB). 
These two addresses can be used for providing the 
destruction of the vector stack by a vector assignation: 

--; VAPB:=£ B0024; £ B0024:=£ B0023;_*= ... 

#critical region#^ ; £ B0024:=VAPB ;. 

But it is preferred to procedure this critical region : 
. . $ SUBR ( .. *= ... #critical region# ) ;. 

- This address contains the address AW 0 (begin of the 
common variable store or W-store) . 

- This address contains the address AX 0 (begin of the 
variable store or X-store) . 

This value is also the address of the program store end. 
The loaded program can be printed out as follows : 

( LABEL LPRLDTRACE ; PROMT:=LPRLDTRACE-1 ; 

WILE (PRCNT+:=1)< AX 0 DO 

£1 *= OCTS (PRCiVT) ". OCTS C C PRC.NT ) .VEC(LN) 
OD ; LPRLDTRACE : . #program to trace# 













* 


* 
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B 0027 


AX 0 


AY 0 


B 7600 


This address contains the address AY 0 .(begin of 
the parameter and local variable store) 

This address contains initially the number of declared 
X-store locations of the current program. 

This number is changed if a use is made of X 0 to 
store data. 

- This address contains initially the number of transferred 
parameters % of a called subroutine. 

This number can be changed by declaring parameters 
with the DCL operator or with the LOCAL or FORMAL 
operator. It is also changed by an assignation to 0. 

- This is the start address of the system loader. 

By means of these addresses a dump routine can be 
made of the system addresses : 

SUBR(DUMP: PI *='\DUMP VAP:".OCTS(QB0024) . "\VAPB:".OCTS 
(C Y -2) . ,< \AX0:".OCTS(CB0026) ."\4Y0:". 
OCTS(C Y -1) ; LOCAL X ; PI *="\STACK:\" 

(( £ Iz^)-(X:=CB0024)) + (P1*= ,, Y'.OCTS(C(X+:=1)) ) 

Notice the use of the just VAPB and AYO pointers by 
taking them of the old environment. (CY-2 and CY-1). 
















ft 








Ihe subroutines of the Midialgol system can be used by the user by means • 
of the code statements. The octal value in the octal integer list must be 
equal to B4400 plus the table entry number, except if the entry is marked with *. 


table entry number • 

octal entry 

subroutine 

oooo 8 % 

4000 

error return routine : (HALT) 



prints "SYS ERR AT . 

0030 

4430 

push accu; load 1 ; 

0031 

4431 

push accu; load 2 ; 

0032 

4432 

push accu; load 3 ; 

0033 

4433 

push accu; load 4 ; 

0034 

4434 

push accu; load 5 ; 

0035 

4435 

push accu; load 6 ; 

0036 . 

4436 

push accu; load 7 ; 

0037 

4437 

push accu; load 10g; 

0040 

4440 

push accu; load 11 8 ; 

0041 

4441 

push accu; load 12 0 ; 

O 

0042 

4442 

RESET subroutine ; (VAP:=VAPB) 

0043 

4443 

monadic user defined operator call: 



.. label identifier .. 

0044 

4444 

monadic minus operator. 

0045 

4445 

AP or load TRUE . 

0046 * 

4446 

CALLPR operator subroutine. 

0047 

4447 

M operator subroutine. 

0050 

4450 

N operator subroutine. 

0051 

4451 

V operator subroutine. 

0052 

4452 

$ operator. 

0053 

4453 

X operator: accu:=C(AXO+accu) 

0054 

4454 

Y operator: accu:=C(AYO+accu) 
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table entry number 

0055 

0056 

0057 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0070 

0071 

0072 

0073 % 

0074 

0075 

0076 

0077 

0100 

0101 

0102 

0103 

0104 

0105 


octal 

entry subroutine 

4455 

Z operator: accu:=CC(AYO+accu) 

4456 

W operator: accu:=C( AWO+accu) 

4457 

R operator.(read) 

4460 

C operator.(contents of) 

4461 

COPY operator. 

4462 

ST operator.(straighten) 

4463 

DECIN operator, (read number) 

4464 

OCTIN operator, (read octal integer) 

4465 

DECS operator, (output number) 

4466 

OCTS operator, (output octal integer) 

4467 

CHAR subroutine. 

4470 

ALPHA operator subroutine. 

4471 

DIGIT operator subroutine. 

4472 

operator . 

5473 

GOTO the contents of the accu: GOTOAC, 

and POP the stack. 

4474 

DCL operator. 

4475 

assign. 

4476 

assign and pop the stack, (void) 

4477 

vector assign. 

4500 

vector assign and pop the stack, (voiding 

vector assignment) 

4501 

assign and becomes subroutine. 

4502 

user defined dyadic operator call: 

.. label identifier .. . 

4503 

creation operator. 

4504 

free subroutine: the old 1 operator of 

Minialgol. 

4505 

& (and) operator subroutine. 
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* 









subroutine 


table entry number 

octal entry 

0106 

4506 

0107 

4507 

0110 • 

4510 

0111 

4511 

0112 

4512 ' 

0113 

4513 

0114 

4514 

0115 

4515 

0116 

4516 

0117 

4517 

0120 

4520 

0121 

4521 

0122 

4522 


0123 

4523 

0124 

4524 


0125 

4525 

0126 

4526 

0127 

4527 

0130 

4530 

0131 

4531 

0132 

4532 


! (or) operator. 

+ (add) operator. 

- (subtract) operator. 

(shift left) operator. 

= (equal) operator. 

/=(not equal) operator. 

> (greater) operator. 

>=(greater or equal) operator. 

< (less then) operator. 

<=(less then or equal) operator. 

* (multiply) operator. 

/ (divide) operator. 

ADD operator entry of Minialgol: 
not used in this system. ADD is the 
double length dyadic add subroutine. 
MULT operator: dyadic double length 
multiplication subroutine: not used 
entry of this system. 

DIV operator: dyadic double length 
divide operator subroutine entry: 
not used in this system. 

These double length entries are 
shortened to the standard length 
routines. (ADD=+ etc.). 

. (concatenation) operator. 
SL(slicing) operator. 

MEM (member of) operator. 

HD (head of ) operator 
COMP(compress ) operator. 

EXPAND operator. 
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table entry number 

-149- 

octal entry 

subroutine 

0133 

% 

5533 

(jump to)the end of program routine.. 

0134 

% 

5534 

(jump to)the end of subroutine 

0135 

% 

5535 

subroutine. 

(jump to)the end of expression routine. 

0136 

. % 

5536 

(jump to)the end of called expressions 

0137 


4537 

(VEXPR's) subroutine. 

push subroutine: load the argument 

0140 


4540 

while pushing the accu. 

pop subroutine: CB0174 (QLOC) :=accu; 

0141 


4541 

accu:=stack top contents. 

GOTONV : goto the argument in the 

0142 


4542 

following location. 

GOTOV : goto voiding=the users GOTO. 

0143 


4543 

procedure routine: EXPR,SUBR and PROG 


cause this function. Evaluation of it 
causes a jump over the procedure body, 
while the accu is stacked and thereafter 
is loaded with the procedure call addres 
0144 4544 increment routine: increments the 

' contents of the address in loaded in the 


accu.(or nonvoid value). 



\J ■ 

0145 

4545 

decrement routine (see increment). 



0146 

4546 

open vector routine. 



0147 

4547 

close vector routine. 



0150 

4550 

string load routine: string follows 





in the next locations. 

♦ 


0151 

4551 

case in subroutine. 



. ' 0152 

4552 

then handling routine. 



0153 

4553 

push ; load AX (argument) ; 












4 
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table entry number octal entry. 

subroutine 


0154 

4554 

push ; load AY( argument); 


0155 

4555 

push ; load X ( argument); 


0156 

4556 

push ; load Y ( argument); 

u ; - 

0157 

4557 » 

push ; load Z.( argument); 

c 

» 

v** 

0160 

0161 

. 4560 

4561 

subroutine optimalisation call routine, 
enter subroutine: optimalisation call. 

o 

j 

0162 

4562 

SREG : push;load switch register » 

Q 

|V 

0163 

4563 . 

load the argument subroutine. 

I • 

!/•* 

0164 

4564 

optimalised expression call routine. 

S' 

0165 

4565 

routine that adds its argument in the 

/■*> 

w 



accu: accu+:= argument ; 


0166 

4566 

accu &:= argument ; 

D 

0167 

4567 

protection flag routine: protection of 

• 



non recursive routines. 

fn 

0170 

4570 

save: C B0175:=accu; 

U 

0171 

4571 

save: accu:=C ( C B0176:-accu ) ; 

C 

the following numbers can be added to the accu by coding 81000 plus the 

W 

entry table number: 


0172 % 

1172 

add -1 

P 

V 

0173 % 

1173 

add -2 

c 

0012 % 

1012 

add 2 

‘p 

0013 % ■ 

1013 

add 3 


0014 % 

1014 

add 4 

r*+ 

1 

w 

0015 % 

1015 

add 5 

* 

(TN- 

0016 % 

1016 

add 6 

1 w 

■ 

0017 % 

1017 

add 7 

i c 

0020 % 

1020 

add 10 q 

i n 

0021 % 

1021 

add H 8 

■ S w . 

1 

0022 % 

1022 

add 12 8 


- 
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8.4 CHANGING THE PI and P2 DEVICE IN A MIDIALGOL SYSTEM 

WITH INTERRUPT. 

These changes have the- form of C(C B 0075 + x ):= y ; where x is an 
octal number. ££ 0075+ x is an address in the assignation routine ' 
which contains the machine instruction for the P1/P2 output sequence. 

These are for x= £0031 - the character output load sequence. 

£0032 - the character output flag test instruction. 

£0037 - the interrupt on instruction. 

The programmer can change with a Midialgol expression or subroutine 
the output device by changing the previous three instructions. 

Note: Before every interrupt on instruction no output flags may 
be on . 

For example : SUBR (CHANGE: FORMAL LOADSQJEST.INT ; 

C(C £0075+£0031):=L0ADSQ ; 

C(C £0075+£0032):=TEST ; 

C(C£0075+£0037):= INT ); 

EXPR(TTY: CHANGE(£6046 ,£6041 ,£6001 ); 

EXPR(VISUAL: CHANGE(£6146 ,£6141 ,£7000); {|INT:=N0-0PERATI0N{{ 
EXPR(PTR: CHANGE(£6026,£6021,£7000); 

EXPR (INTON: C0DE (6001) {{ set the interrupt enable on{{ 

EXPR(RESET: C0DE(6042,6142,6022) ; V INTON ); 

{{ reset all device flags {{ 

a program part could be as following: 

V PTR ; £1 :=%Q ; V RESET ; . V TTY ; P1:=%T ; 
after elaboration of this part a character Q is punched in 
papertape and the character T is transferred to the teletype. 
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8.5 THE ASCII CODE TABLE 
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